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

Question

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

---

Answer 1

Var
   x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',1+2*x-x*x);
x:=x+0.5
Until x > 4.5;
End.