ớ sao bài mình lại lỗi dạ? Mã lệnh: program tran; Uses crt; Var Fi, Fo: text; n: integer; Procedure Laydulieu; Begin Assign(Fi, 'C:\Users\Code\Desktop\pascall\fi\fibonaci.inp'); Reset(Fi); read(Fi, n); Close(Fi); end; Procedure Xuli; Var vitri: array[1..100] of LongInt; t, i, d, j: integer; ok: boolean; var fibonacy: array[0..200] of Integer; Begin Assign(Fo, 'C:\Users\Code\Desktop\pascall\fi\fibonaci.out'); Rewrite(Fo); Fibonacy[1]:= 1; Fibonacy[2]:= 1; t:= 3; d:= 3; ok:= true; While t < n do begin inc(d); Fibonacy[d]:= Fibonacy[d-1]+ Fibonacy[d-2]; t:= Fibonacy[d]; end; t:= n; j:= 0; For i:= d downto 2 do begin If Fibonacy[i] <= t then begin inc(j); Vitri[j]:= i; t:= t - Fibonacy[i]; end; end; If t <> 0 then ok:= false; If Ok = true then for i:= 1 to j do begin If i <> j then write(Fo, Fibonacy[vitri[i]], ' + ') else write(Fo, Fibonacy[vitri[i]]) end else write(Fo, 'Khong the bieu dien '); Close(Fo); end; Begin Laydulieu; Xuli; end. lỗi Data elements is too large