Вложенные циклы.Pascal

[guardi]

program number15;
var
 x,x0,hx,xn,s1,s2,y,e,xs:real;
 fact1,fact2:longint;
 n:integer;
function fact(i:integer):longint;
 begin
  if (i=0) then fact:=1
   else
  fact:=i*fact(i-1); 
 end;
begin
writeln('x0,hx,xn');
readln(x0,hx,xn);
e:=1E-4;
x:=x0;
while x < xn + hx/2 do
 begin
  if x < 1 then
   begin
    xs:=1;
    n:=0;
    s1:=1;
    y:=s1;
     while abs(s1) >= e do
      begin
       n:=n+1;
       xs:=xs*x*x;
       fact1:=fact(2*n);
       s1:=xs/fact1;
       y:=y+s1;
      end;
   end
   else 
    begin
     n:=0;
     s2:=1;
     y:=s2;
      while abs(s2) >= e do
       begin
        n:=n+1;
        fact2:=fact(3*n);
        s1:=x/fact2;
        y:=y+s2;
       end;
     end;
   writeln('x = ',x, ' Y = ',y:2:3);
   x:=x+hx;
  end;
end.

Меня немного смущает,что в результатах идет y,начиная с единицы,а меньше единицы нет

Брал интервал 0.1 - 0.9 шаг 0.1

Задание вот такое

[guardi]

Помощь не нужна,конечно же у меня правильно..все понял