program PhuDoan1;uses crt;constmn = 2002; bl = #32; nl = #13#10;
fn = 'doan.inp'; gn = 'doan.out';
typeKieuDoan = recorda,b: integer;id: integer; { Chỉ số đoạn }end;
md1 = array[0..mn] of KieuDoan;
mi1 = array[0..mn] of integer;var n: integer; { n - so luong doan }
d: md1; { cac doan }
f,g...