Выпишите мне программу для задачи пожалуйста

Question

Выпишите мне программу для задачи пожалуйста

---

Answer 1

Var
    a, b: real;

begin
    read(a, b);
    writeln(sqrt(b * b - a * a / 4));
end.