ЕЛЕМЕНТИ ПРЯМОКУТНИКА.

Program Priamokutnyk1;

var a,b:integer;

S,P,d:real;

begin

Writeln('a,b = ');

Readln(a,b);

S:=a*b;

P:=2*(a+b);

d:=sqrt(a*a+b-*b);

Writeln('S=',S:5:2);

Writeln('P = ',P:5:2);

Writeln('d = ',d:5:2);

end.