Все ** картинке,решение если можно ** фото

Question

Все на картинке,решение если можно на фото

---

Answer 1

Var
    s, a, h: real;

begin
    read(a, h);
    s := -0.5 * a * h;
    writeln(s);
end.