Begin12. Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: .
var a, b, c, p: real;
begin
  write('Введите длины катетов прямоугольного треугольника ->');
  readln(a, b);
  c:=sqrt(sqr(a)+sqr(b));
  p:=a+b+c;
  writeln('Гипотенуза = ', c:6:2);
  writeln('Периметр = ', p:6:2);
end.