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