ớ 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 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