{* Ряд чисел Фибоначчи *}

Unit FIBONACHI;
Interface
Implementation
Begin
 writeln('Вывод на экран ряд чисел Фибоначчи, состоящий из n элементов.');
End.

Program pas0;

Uses fibonachi.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : integer;
  b : integer;
  c : integer;
  i : integer;
  n : integer;
Begin
  write('n = ');
  readln(n);
  a := 0;
  write(a, ' ');
  b := 1;
  write(b, ' ');
  For i := 3 To n Do {* Цикл для i => [3 .. n] *}
  Begin
    write(a + b, ' ');
    c := b;
    b := a + b;
    a := c
  End;
  readln
End.