Даны катеты прямоугольного треугольника a и b. Отыскать его гипотенузу c

var
a, b, c, P: real;
begin
writeln(Введите два катета прямоугольного треугольника:);
readln(a, b);
P := a + b; lt;-- сумма катетов
c := sqrt(sqr(a) + sqr(b)); lt;-- гипотенуза с
P := P + c; lt;-- периметр P
writeln(Итог:);
writeln( c = , c:0:2);
writeln( P = , P:0:2);
readln
end.