даны катеты прямоугольно треугольника а и б найти его гипотенузу с и периметр c=Sqrt(a2+b2), P=a+b+c

var
    a, b, c: real;

begin
    Readln(a, b);
    c := sqrt(a * a + b * b);
    writeln('c = ', c);
    writeln('P = ', a + b + c);
end.