Question

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

Answer 1

var
  a, h, S: real;

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

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

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