Помогите решить приз....

Question

Помогите решить приз....

---

Answer 1

Var x:integer;
Begin
For x:= -4 to 4 do
    WriteLn('Z(',x,') = ',Sqrt(Abs(x+1)));
End.