Оопишите переменные ,необходимые для вычисления площади треугольника по его трём сторонам, и запишите оператора, обеспечивающий ввод необходимых исходных данных

Program zadacha ;
var S,a ,h:real;
begin
write ('введите значение a,h');
read (a,h);
S:=1/2a*h;
readln('S=',S);
end.

Прога работает