Ответ:

Объяснение:

1) var x,y,z:integer;

s:real;

begin

readln (x,y,z);

s:=(2*x+y)/(sqr(z));

writeln (s);

end.

2)var a,b,p,s:integer;

begin

readln (a,b);

p:=2*(a+b);

s:=a*b;

writeln( p,' ',s);

end.

3)var k,x,:integer;

begin

readln (t,k);

x:=(t+k) div 2;

writeln (x);

end.