Программу вычисления суммы всех членов последовательности, не меньших заданного числа e. член последовательности k/(k+1)^2+3- Pascal(Паскаль)

uses crt;
function Summa(e:real):real;
var k:integer;
    s,t:real;
begin
k:=0;
s:=0;
t:=1/7;
while t>e do
 begin
  k:=k+1;
  t:=k/(sqr(k+1)+3);
  s:=s+t;
 end;
Summa:=s;
end;
var eps:real;
begin
clrscr;
repeat
write('Точность >0 eps=');
readln(eps);
until eps>0;
if eps>=1/7 then write('Сумма=',1/7:0:5)//если точность выше первого члена ряда
else write('Сумма=',Summa(eps):0:5);
readln
end.