问题描述：Fibonacci数列(文件名:ga01.pas)　　Fibonacci数列的代表问题是由意大利著名数学家Fibonacci于1202年提出的“兔子繁殖问题”(又称“Fibonacci问题”)。　　问题的提出：有雌雄一对兔子,假定过两个月后便每个月可繁殖雌雄各一的一对小兔子。问过n个月后共有多少对兔子？已知：N<=1000。

program ge01;
var n,g,i,k:integer; f1,f2,f:array[1..600] of integer;
begin fillchar(f1,sizeof(f1),0);
fillchar(f2,sizeof(f2),0); fillchar(f,sizeof(f),0);
readln(n); f1[600]:=1; F2[600]:=1;
for k:=3 to n do begin （______) end;
i:=1;
while (f[i]=0) and (i<=600) do i:=i+1;
for k:=i to 600 do write(f[k]);
writeln;
end.
前端程序已给出,求（————）内的程序

求大神。。。。

新人到此，求元老不要冷落

var
a,b,c,i,n:longint;
begin
a:=0;b:=1;
read(n);
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
write(c);
end.

var
a:array[1..1000] of qword;
i,n: integer;
begin
readln(n);
a[1]:=1;
a[2]:=1;
if n<3 then writeln(1)
else if n>=3 then
begin
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
writeln(a[n]);
end;
readln;
end.

program thr220;
var n,i:integer; a1,a2,a3:longint;
begin
readln(n);
a1:=1;
a2:=1; for i:=3 to n do begin a3:=a1+a2; a1:=a2; a2:=a3; end; writeln(a3);
end.