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

ớ 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