Цикл while,for или repeat,Пожалуйста посчитайте пожалуйста решить задачу.

const e=6E-3;
var i:integer; a,s:real;
begin
i:=1;
a:=6;
s:=a;
while a>e do
 begin
 i:=i+1;
 a:=(i+5)/(i*i);
 s:=s+a;
 end;
writeln('s = ',s:8:4);
end.

Результат:
s =  13.9233