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

var  a, h, S: real;begin  Write('Введите значения основания и высоты треугольника: ');  Readln(a, h);  S := a * h / 2;  Writeln('Площадь треугольника равна ', S)end.Тестовое решение:Введите значения основания и высоты треугольника: 15.4 7.3Площадь треугольника равна 56.21