Вычислите периметр и площадь прямоугольного треугольника если стороны треугольника вводятся с клавиатуры (a, b, c; a, d-катеты)

program zz1;

var a, b, c, s, p:real;

begin

writeln ('Введите сторону треугольника а'); / /вводим первый катет

read (a);

writeln ('Введите сторону треугольника b'); / /вводим второй катет

read (b);

writeln ('Введите сторону треугольника c'); / /вводим гипотенузу

read (c);

p:=a+b+c; / /находим периметр

writeln ('Периметр треугольника = ', p); / / выводим ответ

p:=p/2; / /получаем полу периметр

s:=sqrt (p * (p-a) * (p-b) * (p-c)); / /вычисляем площадь по формуле Герона

write ('Площадь треугольника = ', s); / / выводим ответ

end.