Вычислить сумму ряда с использованием цикла с предусловием

Program Summer1;
uses Crt;
var i: integer;
      Y: A: S: real;
begin
ClrScr;
   Y:= 1;
for i:= 0 TO 7 do begin
   Y:= 1 + (i * 2);
gotoXY(2 + i * 8), 2);
   write('    ' , Y:6:0);
   A:= 1 / Sqr(Y);
gotoXY(1 + i * 8, 4)
   write('   ' , A:6:4);
   S:= S + A;
end;
gotoXY(1, 6)
    writeln('   Кол. сламгаемых:  ' , 1 + i);
        writeln;
    writeln('    Сумма  слагаемых:  ' , S:6:4);
  readln;
end.

Program Summer1;
uses Crt;
var Eps, Y,  S: real;
      i: integer;
begin
ClrScr;
  write(' Ввести Epsilon:');
     readln(Eps);
     Y:= 1;
      i:= 0;
while abs(Y)  >=  Eps do begin
   i:= 1 + (i * 2)
    gotoXY(2 + i * 2, 3);
    write('     ' , i);
 
     Y:= 1 / Sqr(i);
      gotoXY(1 + i * 4, 5);
      write('    ' ,Y:6:4);
      S:= S + Y;
 end;
      gotoXY(1, 7);
      write('      Кол. слагаемых:  '  , i + 1);
      gotoXY(1, 9);
      writeln('      Сумма слагаемых:  '  , S:6:4);
  readln
end.

var
  eps,s,x,i:real;
begin
  write('Введите точность: '); readln(eps);
  x:=12; s:=0; i:=0;
  while 1/x>=eps do begin
    i:=i+1; s:=s+1/x; x:=x+20;
  end;
  writeln('Кол. слагаемых: ',i);
  writeln('Сумма: ',s:6:4);
  readln;
end.

Program Summer1;
uses Crt;
var Eps, Y, S: real;
      k, i: integer; {Счётчики шагов}
begin
ClrScr;
    write(' Ввести Eps:');
        readln(Eps);
      Y:= 1;  (Первое слагаемое)
       S:= Y;  {Первое слагаемое в сумматоре}
        i: = 0;  {Обнуление счётчика шагов}
    while abs(Y) >= Eps do begin
        k: = k + 1; {Количество слагаемых}
        i: = 1 + (i * 2);
        Y:= 1 / Sqr(i);  {Очередное слагаемое}
             write('    ' , Y:6:4);  {Печать слагаемых}
         S:= S + Y;
     end;
                  writeln;
             write(' Кол. слагаемых: ' , k);
                   writeln;
              writeln(' Сумма чисел: ' , S:6:4)'
           readln
end.