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

program triangle;

var a, b, c: real;

begin

write ('Введите длину первого катета ');

Readln (a);

write ('Введите длину второго катета ');

Readln (b);

c: = sqrt (a * a + b * b);

writeln ();

writeln ('Гипотенуза треугольника c = ', c : 4 : 4);

writeln ('Периметр треугольника P = ', a + b + c : 4 : 4);

end.