Вывести на экран столько элементов ряда фибоначчи, сколько указал пользователь. например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел ряда фибоначчи: 1 2 3 5 8 13.
pascalabc

var f1,f2,b,i,n: word;

begin

   readln(n);

   f1 := 1;

   f2 := 2;

   write(f1,' ',f2,' ');

   for i:=3 to n do begin

       write(f1+f2, ' ');

       b := f1;

       f1 := f2;

       f2 := b + f1;

   end;

   writeln;

end.

Объяснение: