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

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.