已知faibonacci数列的前几个数分别为0,1,1,2,3,5,8,……,编程输出此数列的前n(n>=2)项。（每行输出五项,每项场宽为6）。
输入样例： 10
输出样例：
0 1 1 2 3
5 8 13 21 34

Var  n,p1,p2,t,f:integer;
Begin
  Readln(n);
  P1:=0; p2:=1; t:=2;
  Write(0:6,1:6);
  While    t<>n     do
   Begin
     If    t mod 5=0    then writeln;
           f:=p1+p2;      
Write( f:6 );
    inc(t)       
p1:=p2; 
     p2:=f     ;
   End;
 End.