Цикл 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