Помогите записать в паскале

Question

Помогите записать в паскале

---

Answer 1

Ответ:

var a, b, c: integer; x: real;

begin

   readln(a, b, c);

   x := (-b + sqrt(b * b - 4 * a * c)) / (2 * a);

   writeln(x);

end.