Помогите сделать программу

Question

Помогите сделать программу

---

Answer 1

var a,b:integer;

S:real;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

S:=1/2*a*b;

writeln('S = ',S);

end.