uses crt;
var n,i,j,nho:longint; a:array[1..10000,1..10000]of longint;
b:array[1..10000] of longint;
begin
clrscr;
   write('n=');readln(n);
   a[1,1]:=1; b[1]:=1; b[2]:=1; a[2,1]:=1;
   for i:=3 to n do
      begin
         nho:=0;
         b[i]:=b[i-1];
         for j:=1 to b[i-1] do
               begin
                  a[i,j]:=a[i-1,j]+a[i-2,j]+nho;
                  if a[i,j]>9 then begin a[i,j]:=a[i,j]mod 10; nho:=1; end else
                  nho:=0;
               end;
         if nho=1 then begin inc(b[i]); a[i,b[i]]:=1; end;
      end;
   for j:=b[n] downto 1 do write(a[n,j]);
readln
end.

///////////////////////////////

Mình dùng cách cộng 2 số lớn(sử dụng array) nên cho phép sử lý tới số 10000

Text:

Cái hình tràn số là kết quả của n=10000