Эмм..., ну тут ничего сложного, уж поверьте
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.