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

Var
  a, h, S: real;

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

Тестовое решение:

Введите значения основания и вышины треугольника: 15.4 7.3
Площадь треугольника одинакова 56.21