Вычисляемая последовательность чисел по формуле: 1 / ((sqrt (n^2 + 1) + sqrt (n^2 - 1)), где n=1,2,3 ...

Определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую Е.

Вычислить сумму М таких чисел начиная с К-ого.

Var k, m, e, a, b, c: real;

n: integer;

begin

readln (e) ;

readln (k) ;

for n : = 1 to 1000 do

begin

b : = 1 / ((sqrt (sqr (n) + 1) + sqrt (sqr (n) - 1))) ;

if ((a - b > e) and (c < = k)) then

begin

m : = m + a + b;

c : = c + 1

end;

a : = b;

end;

writeln (a) ;

end.

Как-то так вроде =)