program gip;
var a, b, c, p: real;
begin
write('Введите два катета прямоугольного треугольника: ');
read(a, b);
c := sqrt(sqr(a) + sqr(b));
p := a + b + c;
writeln('Периметр -- ', p:5:2);
writeln('Гипотенуза -- ', c:5:2);
end.