Решите быстрее пожалуйста очень надо,через паскаль

Question

Решите быстрее пожалуйста очень надо,через паскаль

---

Answer 1

1. program task;
2. var
3.  c, d, a: integer;
4. begin
5.  Readln(c, d, a);
6.  Writeln((c + 4*d - Sqrt(123))/(1 - (a/2)));
7. end.