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

Question

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

---

Answer 1

1. program task;
2. var
3.  y: real;
4.  c, k, a: integer;
5. begin
6.  Readln(c, k, a);
7.  if k = -2 then
8.    Writeln('error! dividev by zero!')
9.  else
10.    begin
11.      y := ((3 * Sqrt(c))/(2 + k)) - (Abs(a))/2;
12.      Writeln(y)
13.    end;
14. end.

Comments

спасибо