统计 - RQNOJ

编译失败，当前编译语言：C++

详情如下

/tmp/1253424.cpp:1:1: error: ‘program’ does not name a type
 program p1314;//NOIP2006-3type node = record mec:longint; time:longint; done:boolean; ends:longint; end;var m,n:longint; plan:array[1..401] of longint; mec:array[1..20,1..2000] of boolean; th:array[1..20,1..20] of node; min:longint; i,j:longint; now:node; tmp1,tmp2:longint;procedure readdata;var i,j:longint;begin readln(m,n); for i:=1 to m*n do read(plan[i]); for i:=1 to n do begin for j:=1 to m do read(th[i,j].mec); end; for i:=1 to n do begin for j:=1 to m do read(th[i,j].time); end; for i:=1 to n do for j:=1 to m do th[i,j].done:=false; fillchar(mec,sizeof(mec),true);end;function GetNext(x:longint):longint;var i:longint;begin for i:=1 to m do if th[x,i].done=false then exit(i); exit(0);end;function searchFree(s:longint;l:longint;x:longint):longint;var i,j:longint;begin i:=s; j:=1; while j<=1500 do begin j:=i; while mec[x,j] do begin if j-i+1>=l then exit(i); inc(j); end; i:=j+1; end; exit(0);end;begin readdata; min:=0; for i:=1 to m*n do begin tmp1:=GetNext(plan[i]); now:=th[plan[i],tmp1]; if tmp1=1 then tmp2:=searchFree(1,now.time,now.mec) else tmp2:=searchFree(th[plan[i],tmp1-1].ends+1,now.time,now.mec); th[plan[i],tmp1].done:=true; th[plan[i],tmp1].ends:=tmp2+now.time-1; for j:=tmp2 to th[plan[i],tmp1].ends do mec[now.mec,j]:=false; if j>min then min:=j; end; writeln(min);end
 ^