存程序、

program aaa;
type process=record
    ar,ti,im:longint;
 end;
var heap:array[1..15001] of process;
i,j,x,a,t,imp,sum,t0:longint;
procedure put(da:longint);
var fa,son:longint;
begin
inc(sum);
heap[sum].ar:=a;
heap[sum].ti:=t;
heap[sum].im:=da;
son:=sum;
 while (heap[son div 2].im<heap[son].im) and (son>1) do
  begin
   exchange(heap[son div 2].ar,heap[son].ar);
   exchange(heap[son div 2].ti,heap[son].ti);
   exchange(heap[son div 2].im,heap[son].im);
   son:=son div 2;
  end;
end;

begin
sum:=0;
 while not(eof) do
  begin
   readln(x,a,t,imp);
    if (sum=0) or (imp<=heap[1].im) then 
     begin    
      put(t);
      if x=1 then t0:=t;
     else begin
      while a+t>=heap[1].t+t0 then      
     end;     
  end;
end.