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

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.