Составьте программу вычисления площади треугольника с основанием a и высотой h. Значения 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.