Вычислите периметр и площадь прямоугольного треугольника если стороны треугольника вводятся с

program zz1;
var a,b,c,s,p:real;
begin
writeln(Введите сторону треугольника а); //вводим 1-ый катет
read(a);
writeln(Введите сторону треугольника b); //вводим 2-ой катет
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.