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

Question

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

---

Answer 1

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