ПАСКАЛЬ !!! Знайти найменший номер члена послiдовностi, для якого виконує- ться умова |an − an−1| < e. Вивести на екран цей номер i всi еле- менти ai , де i = 1, 2, . . . , n:
an =0.5*(an−1+an−2)
a1 = 1, a2 = 2
an =(n^ln n)/(ln n)^n

var  a, p: real;  n, i: integer;begin  p := 1;  readln(a, n);  for i := 0 to (n - 1) do    p := p * (a + i);  writeln(p);end.