Каков результатвыполнения данного алгоритма

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108