Помогит решыть информатику!

var a,b,h,x,g:real; n,i:integer;
begin
a:=-2; b:=2;
h:=0.25;
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' №    x      g(x)');
for i:=1 to n do
begin
 x:=x+h;
 if x<=0 then g:=sqrt(1+x*x)
 else g:=(1-2*x-x*x*x)/(1+sqrt(1+exp(-x)));
 writeln(i:2,'  ',x:5:2,' ',g:8:4);
 end;
end.

Результат:
№  x    g(x)
1-2.002.2361
2-1.752.0156
3-1.501.8028
...
161.75-3.7724
172.00-5.3255