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

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.

автор: Sklyarov Sergej a.k.a. S9