Информатика! алгоритм сказки "репка"

0)начало  1)посадил дед репку  2)выростил  3)начал ее вытягивать из земли  4)позвал бабку  5)тянут потянут ,вытянуть не могут  5)позвали внучку  6)тянут потянут ,вытянуть не могут  7)позвали жучку  8)тянут потянут ,вытянуть не могут 9) позвали кошку  10) тянут потянут, вытянуть не могут  11)позвали мышку вытащили  12)конец

2, 3, 6, 18, 108

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

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.