Question

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

Answer 1

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