program per;
var
a,b,c,p,p2: real;
begin
writeln('Введите катеты прямоугольного треугольника: ');
readln(a,b);
c :=sqrt(a*a+b*b);
writeln('Гипотенуза = ',c);
p:=(a+b+c)/2;
p2:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь равна ', p2);
writeln('Периметр равен', a + b + c);
end.