Фибоначчи

[Вадим ы]

Я в панике, помогите даже не знаю как подойти !!

отобразить сороковое число Фибоначчи
1 2 3 4 5 6 7 ....
1,1,2,3,5,8,13,

[ex.cluz]

Да-а-а. Как все запущено...

Идем на Википедию, читаем:

Чи́сла Фибона́ччи — элементы числовой последовательности

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040 (последовательность A000045 в OEIS)
в которой каждое последующее число равно сумме двух предыдущих чисел.

Пишем довольно простую программу.

[Don Karleone]

Uses Crt;
Var
   fa,fb,n,k :LongInt;
            flag :Boolean;
Begin
   ClrScr;
   write('Сколько чисел Фибоначчи надо вывести на экран: ');
   readln(n);
   fa:=0;
   fb:=1;
   k:=1;
   writeln('f',k,'=1');
   while flag=false do
      begin
         fa:=fa+fb;
         k:=k+1;
         if k<=n then writeln('f',k,'=',fa);
         fb:=fa+fb;
         k:=k+1;
         if k<=n then writeln('f',k,'=',fb)
                 else flag:=true;
      end;
   readln
end.

[ex.cluz]

[OFFTOP]
Не могу не заметить: что ж это за программист такой растет, который от одного только упоминания чисел Фибоначчи впадает в панику?
[/OFFTOP]