已知一个数列各项为:0,1,1,2,3,5,8,13,21 ,34……,求第N项是多少?(其中100>N>=1) 用pa

已试过,是对的,
程序如下：

program fai0bonacai;
var t,n:longint;
p,l,f:real;
begin
read(n);
p:=0;l:=1;t:=2;
while t<>n do
begin
f:=p+l;
p:=l;
l:=f;
t:=t+1;
end;
write(f:0:0);
end.
附图：