Написать алгоритм нахождения площади и периметра прямоугольного треугольника ABC если известен катет и гипотенуза АС, BC

program zz1;

var a, b, c, S, p, d:real; / / задаем переменные не целого типа

begin

write (' введите известный катет треугольника ');

read (a);

write (' введите гипотенузу треугольника ');

read (c);

b:=sqrt (sqr (c) - sqr (a)); / / находим второй катет треугольника

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

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

d:=p/2; / /находим полупериметр треугольника

s:=sqrt (d * (d - a) * (d - b) * (d - c));

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

end.