Задайте перечислением элементов множество цифр числа 2211003.

2, 1, 0, 3. это очень просто

      а   в   с ВилиС    АиВилиС
      и    и   и    и            и
      и    л   и     и            и
      и     и   л    и            и
      и     л   л    л            л
      л    и     и    и          л
       л    л    и    и          л
       л     и   л    и           л
      л      л   л    л           л

А     В    С   _В  _ВиС    Аили_ВиС
и      и     и    л     л          и
л       и    и     л    л            и
и       л   и       и   и             и
и      и    л      л    л           и
и      л    л      и    л           и
л      и    и      л     л          л
л       л   и      и     и          и
л       и     л     л    л             л 
л      л    л       и    л             л

В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.

Код процедуры:

procedure print_fib(n: integer);

var a, b, t: integer;

begin

   a := 0;

   b := 1;

   while n > 0 do

   begin

       write(b, ' ');

       b := a + b;

       a := b - a;

       n := n - 1;

   end;

end;

Пример основной программы:

begin

   print_fib(10)

end.

Вывод:

1 1 2 3 5 8 13 21 34 55