даны катеты прямоугольного треугольника ab.Найти его гипотенузу c и периметр p.

var a, b, c, P: real; begin writeln('Введите два катета:'); readln(a, b); P := a + b;c := sqrt(sqr(a) + sqr(b)); P := P + c; writeln(' c = ', c:0:2); writeln(' P = ', P:0:2); end.