Dãy fibonacci có hai phần tử đầu là 1,1. Các phần tử sau bằng tổng hai phần tử đứng

var i,n,j : integer;
a : array [1..1000] of integer;
begin
writeln('nhap n: ');
readln(n);
a[1]:=1; a[2]:=1; i:=2;
while a[i]<n do
begin
 inc(i);
 a[i]:=a[i-1]+a[i-2];
end;
for j:=1 to i-1 do write(a[j],' ');
        readln;
end.