var a,b,c,S,P:real;
begin
writeln('Введите значения a и b:');
readln(a,b);
S:=a*b/2;
c:=sqrt(a*a+b*b);
P:=a+b+c;
writeln('Периметр равен ',P);
writeln('Площадь равняется ',S);
end.
var a,b,c,S,P:real;
begin
writeln('Введите значения a и b:');
readln(a,b);
S:=a*b/2;
c:=sqrt(a*a+b*b);
P:=a+b+c;
writeln('Периметр равен ',P);
writeln('Площадь равняется ',S);
end.