Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c = sqrt(sqr(a) + sqr(b), P = a+b+c — Pascal(Паскаль)

Program Begin12;

Var
  a, b, c: Real;

Begin
  ReadLn(a, b);
  WriteLn('c = ', sqrt(sqr(a) + sqr(b)):6:3);
  WriteLn('P = ', (a + b + c):6:3);
  ReadLn;

End.