Ошибка 207 в уравнении - Free Pascal

program zadanie2;
uses crt;
const a=0.1; b=5; n=15;{заданные условия-константы}
var x,y,s,h:real;
i:integer;
begin
clrscr;
{1-цикл с постусловием repeat}
h:=(b-a)/(n-1);{шаг табуляции}
x:=a-h;{отступим на шаг назад. чтоб точно попасть в последнюю точку}
s:=0;{обнуляем сумму}
repeat {цикл с постусловием}
x:=x+h;{увеличиваем х на шаг}
y:=sqr(arctan(exp(ln(ln(x))*4)));{вычисляем у}
s:=s+y;{считаем сумму}
until x>b;
writeln('Summa1= ', s: 0: 3);
readln;
{2-цикл с предусловием while}
x:=a-h;
{x:=a;}
s:=0;
while x<=b do {цикл с предусловием}
    begin
      x:=x+h;
      y:=sqr(arctan(exp(ln(ln(x))*4)));
      s:=s+y;
    end;
writeln('Summa2= ', s: 0: 3);
readln;
{3-цикл с шагом +1 for to do}
x:=a-h;
s:=0;
For i:=1 to n do {цикл с параметром шаг=+1}
    begin
      x:=x+h;
      y:=sqr(arctan(exp(ln(ln(x))*4)));
      s:=s+y;
    end;
writeln('Summa3= ', s: 0: 3);
readln;
{4-цикл с шагом -1 for downto}
x:=a-h;
s:=0;
For i:=n downto 1 do {цикл с параметром шаг=-1}
    begin
      x:=x+h;
      y:=sqr(arctan(exp(ln(ln(x))*4)));
      s:=s+y;
    end;
writeln('Summa4= ', s: 0: 3);
readln
end.