Question

Помогите, пожалуйста

Answer 1

var a,h:real;
begin
  writeln('Введите a,h: ');
  readln(a,h);
  writeln('Площадь треугольника равна ',a*h/2);
end.