... (t2<=L_G1.sodinh -2 ) do
begin
if t2 in L_v1 then
L_G1.dsdinh[t2].MucKichHoat :=3
else
L_G1.dsdinh[t2].MucKichHoat :=0;
end;
t2:=t2+1;
end;
L_G1.dsdinh[0].MucKichHoat :=3;
L_G1.dsdinh[L_G1.SoDinh -1 ].MucKichHoat ... L_G1.sodinh-1 do
begin
L_giatri(L_G1,0,y,t1,a1,b1);
f:=f+b1;
end;
for y:=0 to L_G1.Socanh -1 do
if L_G1.DSCanh[y].DinhCuoi =L_G1.SoDinh -1 then
begi...