Вычислить приближённое значение бесконечной суммы:1/(12)+1/(23)+1/(3*4)+… Нужное приближённое считается полученным,если вычислена сумма нескольких первых слогаемых,и очередное слогаемое оказалось по модулю меньше данного положительного числа Эпсэлэнт(E)- Pascal(Паскаль)

program Project1;
 
var
 sum,eps:real; 
function SummSequence(n:real;eps:real):real;
var     
    p,summ:real;
    
begin
    summ := 0.0;
    p := 1;
    while (p >= eps) do
    begin
        p:= 1/(n*(n + 1));  
        summ := summ + p;
     n:= n +1;
    end;
    SummSequence := summ;
end;
begin
writeln('Vvedite zadannuiu tocinosti');
write('eps=');readln(eps);
sum := SummSequence(1,eps);
writeln('Summa =',sum:10:8);
readln;
 end.