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