Sqr(A*2+b*2)
(s+p*2)
x+y/2
15*x-7/2

Вроде так,если честно не очень понятно написан вопрос 

1)
var c,a,b: real;
begin
readln (a);
readln (b);
c:=(a*a+b*b)*(a*a+b*b);
writeln (c);
end.



2)
var c,s,p: real;
begin
readln (s);
readln (p);
c:=s+p*p;
writeln (c);
end.



3)
var c,x,y: real;
begin
readln (x);
readln (y);
c:=x+y/2;
writeln (c);
end.


4)
var c,x: real;
begin
readln (a);
c:=15*x+3,5;
writeln (c);
end.