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

Question

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

---

Comments

Блок-схему? Программу? Что???

Answer 1

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