program prTreug;
var a,b,y, P: real;
begin
writeln ('введите катеты прямоугольного треугольника');
read (a,b);
if (a
writeln ('такого треугольника нет')
else
begin
y:=sqrt(sqr(a)+sqr(b));
P:= a+b+y;
writeln ('гипотенуза = ',y:6:2);
writeln ('периметр = ',P:6:2);
end;
end.