已知faibonacai(费波那契)数列的前几个数分别为1,1,2,3,5,8,13,……,编程求此数列的前n（n＞＝５）项。

输入说明：一行一个整数ｎ（＞＝５ and <=22）

输出说明：每５格一行，不足５个的也占一行

var
  n,a,b,i,j,t,c:integer;
begin
  read(n);
  a:=1; b:=1; write(a,' '); write(b,' ');
  t:=2;
  for j:=3 to n do
  begin
    c:=a+b; t:=t+1;
    a:=b; b:=c;
    if t mod 5=0 then begin
                        writeln(c,' ');
                        writeln;
                      end;
  end;
end.
各位大虾，错哪了，小虾米求助！