Объяснение:
1
2
3
4
5
6
7
8
var
a,b: real;
begin
write('Vvedite kateti a, b: ');
readln(a,b);
writeln('P = ',a + b + sqrt(a*a+b*b):0:2);
readln;
end.
