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

Площадь этого треугольника мы можем высчитать, пользуясь только той информацией, которая дана в задачке. А именно длина 2-ух катетов.
Для этого необходимо создать две переменные для каждого из известных катетов, а также для гипотенузы, значение которой нам пригодится в последующем для нахождения периметра данного треугольника:
var A, B, C : integer;
Ploschad := (A + B) / 2;
writeln(Площадь , Ploschad);
Для периметра нужна 3-я сторона:
С := sqrt(sqr(A) + aqr(B));
Perimetr := A + B + C;
writeln(Периметр , Perimetr);