*Dãy này thực ra là dãy fibonacci thôi bạn :))
uses crt;
var f:array[1..100000] of longint;
i,j,n:longint;
begin
clrscr;
write('nhap n=');readln(n);
f[1]:=1;
f[2]:=1;
i:=2;
while f[i]<n do
begin
i:=i+1;
f[i]:=f[i-1]+f[i-2];
end;
for j:=1 to i do write(f[j],' ');
readln;
end.