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

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 gt; e) and (c lt;= k)) then
         begin
            m := m + a + b;
            c := c + 1
         end;
         a := b;
     end;
     writeln(a);
end.

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