Пожалуйста помогите решить, к завтрашнему дню сдать надо!

эмм..., ну тут ничего сложного, уж поверьте 1,2 var a,b,c :real; begin readln(a,b); a:=(2*a)+b; b:=3*(a-b); c:=a+b; write(c); end. в протоколах походу нужно записать ваши значения, и добавить ответы что у вас получилось 3. var a,b,s,p :real; begin readln(a,b); p:=2*(a+b); //периметр s:=a*b; //площадь writeln(a,b); end.