WIKIOI 第3027题和第3008题 线段覆盖2和加工生产调度

3027 code:var a,b,c:array[1..1000] of longint;
n:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a) else exit(b);
end;
procedure init;
begin
readln(n);
for n:=1 to n do readln(a[n],b[n],c[n]);
end;
procedure doit;
var i,j,k:longint;
begin
for i:=1 to n-1 do
for j:=i+1 to n do if b[i]>b[j] then begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
k:=b[i];
b[i]:=b[j];
b[j]:=k;
k:=c[i];
c[i]:=c[j];
c[j]:=k;
end;
for i:=2 to n do begin
k:=0;
for j:=1 to i-1 do if b[j]