Даны катеты прямоугольно треугольника а и б найти его гипотенузу с и периметр 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.