Question

Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу с, периметр P и площадь S. (Pascal)

Answer 1

var   a, b, c, p: real;

  begin

  writeln('Введите катеты:');

  write(' a = ');

  readln(a);  

write(' b = ');  

readln(b);

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

  P := a + b + c;

writeln(' c = ', c:0:1);  

writeln(' p = ', p:0:1);

  readln

end.

Извини только площадь не нашла(