// PascalABC.NET
// Даны катеты прямоугольного треугольника.
// Найти его гипотенузу и периметр.
var
a, b : real;
begin
write('Введите длину катета а: ');
readln(a);
write('Введите длину катета b: ');
readln(b);
var c := sqrt( sqr(a) + sqr(b) );
var p := a + b + c;
writeln('Длина гипотенузы равна ', c);
writeln('Периметр треугольника равен ', p)
end.
