Составьте программу вычисления площади треугольника с основанием a и вышиной h.

var a, h, s: real; // здесь: a основание треугольника, h вышина треугольника, s площадь треугольника
begin
write(Введите длину основания треугольника );
readln(a);
write(Введите длину вышины, проведенной к данной стороне треугольника );
readln(h);
s:=(1/2)*a*h;
writeln(Площадь данного треугольника равна ,s);
end.