Ответ:

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.

Объяснение: