Помогите сделать,необходимо в паскале

// PascalABC.NET 3.3, сборка 1552 от 20.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (xn,xk,dx,a):=(-3.0,3.0,0.6,2.62);
  var fun:real-gt;real:=x-gt;Power(1/(7+x),1/3)/(14.5+Log(a*a+3));
  var n:=Trunc((xk-xn)/dx)+1; // количество точек
  var (s,p):=(0.0,1.0);
  for var i:=1 to n do begin
    var x:=xn+(i-1)*dx;
    var z:=fun(x);
    if i mod 3=0 then Writeln(x:4:1,z:20:9);
    if zlt;a then p*=z else s+=z;
    end;
  var F:=p+s;
  Writeln('F=',F)
end.

Итог
-1.8         0.034380259
 0.0         0.031137058
 1.8         0.028850236
F=3.08194173508216E-17