Question

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

Answer 1

var
    s, a, h: real;

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