Question

Катеты прямоугольного треугольника A и B соответственно равны 125, 127. Написать программу,  определяющую площадь и периметр треугольника.

Answer 1

var
  a, b, c: Real;
begin
  a := 125;
  b := 127;

  c := sqrt( sqr(a) + sqr(b) );  
  
  Writeln('S = ', a * b / 2);
  Writeln('P = ', a + b + c);
end.