Ранним весенним утром, когда температура окружающего воздуха была еще 0°С, а давление 760 мм. рт. ст., три товарища, прогуливая своих

Program pl;
var a,h,s:real;
begin
writeln ('введите длину стороны треугольника а');
readln (a);
writeln ('введите длину высоты треуг. h');
readln (h);
s:=1/2*a*h;
writeln('площадь треугольника с заданными параметрами=',s,' кв.ед.');
end.