foo.cc:11:20: error: too many decimal points in number
         head:array[1..500050] of point;
                    ^~~~~~~~~
foo.cc:12:20: error: too many decimal points in number
         list:array[1..500050] of longint;
                    ^~~~~~~~~
foo.cc:14:26: error: too many decimal points in number
         visit,flag:array[1..5000050] of boolean;
                          ^~~~~~~~~~
foo.cc:15:30: error: too many decimal points in number
         pre,pred,sum,f:array[1..500050] of longint;
                              ^~~~~~~~~
foo.cc:18:24: error: too many decimal points in number
         queue,qt:array[1..500050] of longint;
                        ^~~~~~~~~
foo.cc:1:1: error: 'program' does not name a type
 program vjiosP1553;
 ^~~~~~~
foo.cc:3:1: error: 'type' does not name a type
 type
 ^~~~
foo.cc:5:9: error: 'node' does not name a type
         node=record
         ^~~~
foo.cc:7:21: error: found ':' in nested-name-specifier, expected '::'
                 next:point;
                     ^
foo.cc:7:17: error: 'next' does not name a type
                 next:point;
                 ^~~~
foo.cc:8:9: error: 'end' does not name a type; did you mean 'enum'?
         end;
         ^~~
         enum
foo.cc:9:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:11:13: error: found ':' in nested-name-specifier, expected '::'
         head:array[1..500050] of point;
             ^
foo.cc:11:9: error: 'head' does not name a type
         head:array[1..500050] of point;
         ^~~~
foo.cc:12:13: error: found ':' in nested-name-specifier, expected '::'
         list:array[1..500050] of longint;
             ^
foo.cc:12:9: error: 'list' does not name a type; did you mean 'int'?
         list:array[1..500050] of longint;
         ^~~~
         int
foo.cc:13:14: error: found ':' in nested-name-specifier, expected '::'
         lists:longint;
              ^
foo.cc:13:9: error: 'lists' does not name a type
         lists:longint;
         ^~~~~
foo.cc:14:9: error: 'visit' does not name a type
         visit,flag:array[1..5000050] of boolean;
         ^~~~~
foo.cc:15:9: error: 'pre' does not name a type
         pre,pred,sum,f:array[1..500050] of longint;
         ^~~
foo.cc:16:9: error: 'key' does not name a type
         key,max:longint;
         ^~~
foo.cc:17:12: error: found ':' in nested-name-specifier, expected '::'
         ans:longint;
            ^
foo.cc:17:9: error: 'ans' does not name a type
         ans:longint;
         ^~~
foo.cc:18:9: error: 'queue' does not name a type
         queue,qt:array[1..500050] of longint;
         ^~~~~
foo.cc:19:9: error: 'qhead' does not name a type
         qhead,qtail:longint;
         ^~~~~
foo.cc:21:1: error: 'function' does not name a type; did you mean 'union'?
 function maxf(a,b:longint):longint;
 ^~~~~~~~
 union
foo.cc:22:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:27:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:29:1: error: 'function' does not name a type; did you mean 'union'?
 function minf(a,b:longint):longint;
 ^~~~~~~~
 union
foo.cc:30:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:35:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:37:1: error: 'procedure' does not name a type
 procedure initdfs;
 ^~~~~~~~~
foo.cc:38:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:40:17: error: expected constructor, destructor, or type conversion before '(' token
         fillchar(pre,sizeof(pre),0);
                 ^
foo.cc:41:17: error: expected constructor, destructor, or type conversion before '(' token
         fillchar(pred,sizeof(pred),0);
                 ^
foo.cc:42:9: error: 'max' does not name a type
         max:=0;
         ^~~
foo.cc:43:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:45:1: error: 'procedure' does not name a type
 procedure initq;
 ^~~~~~~~~
foo.cc:46:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:48:9: error: 'qtail' does not name a type; did you mean 'static'?
         qtail:=1;
         ^~~~~
         static
foo.cc:49:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:51:1: error: 'procedure' does not name a type
 procedure put(data,id:longint);
 ^~~~~~~~~
foo.cc:52:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:54:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:56:9: error: expected unqualified-id before 'while'
         while queue[tmp]>data do
         ^~~~~
foo.cc:58:9: error: 'queue' does not name a type
         queue[tmp]:=data;
         ^~~~~
foo.cc:59:9: error: 'qt' does not name a type
         qt[tmp]:=id;
         ^~
foo.cc:60:9: error: 'qtail' does not name a type; did you mean 'static'?
         qtail:=tmp;
         ^~~~~
         static
foo.cc:61:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:63:1: error: 'function' does not name a type; did you mean 'union'?
 function find(l:longint):longint;
 ^~~~~~~~
 union
foo.cc:64:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:66:13: error: expected constructor, destructor, or type conversion before '(' token
         exit(queue[qhead]);
             ^
foo.cc:67:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:69:1: error: 'procedure' does not name a type
 procedure initp(x:longint);
 ^~~~~~~~~
foo.cc:70:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:72:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:74:1: error: 'procedure' does not name a type
 procedure insert(u,v,w:longint);
 ^~~~~~~~~
foo.cc:75:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:77:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:79:9: error: 'p' does not name a type
         p^.data:=v;
         ^
foo.cc:80:9: error: 'p' does not name a type
         p^.w:=w;
         ^
foo.cc:81:9: error: 'p' does not name a type
         p^.next:=head[u];
         ^
foo.cc:82:9: error: 'head' does not name a type
         head[u]:=p;
         ^~~~
foo.cc:83:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:85:1: error: 'procedure' does not name a type
 procedure inputdata;
 ^~~~~~~~~
foo.cc:86:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:88:9: error: 'u' does not name a type
         u,v,w:longint;
         ^
foo.cc:89:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:91:15: error: expected constructor, destructor, or type conversion before '(' token
         readln(n,s);
               ^
foo.cc:92:9: error: expected unqualified-id before 'for'
         for i:=1 to n do
         ^~~
foo.cc:94:9: error: expected unqualified-id before 'for'
         for i:=1 to n-1 do
         ^~~
foo.cc:97:23: error: expected constructor, destructor, or type conversion before '(' token
                 insert(u,v,w);
                       ^
foo.cc:98:23: error: expected constructor, destructor, or type conversion before '(' token
                 insert(v,u,w);
                       ^
foo.cc:99:9: error: 'end' does not name a type; did you mean 'enum'?
         end;
         ^~~
         enum
foo.cc:100:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:102:1: error: 'procedure' does not name a type
 procedure dfs(id,dist:longint);
 ^~~~~~~~~
foo.cc:103:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:105:9: error: 'nowid' does not name a type; did you mean 'void'?
         nowid,nowd:longint;
         ^~~~~
         void
foo.cc:106:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:108:9: error: 'now' does not name a type
         now:=head[id];
         ^~~
foo.cc:109:9: error: expected unqualified-id before 'while'
         while now<>nil do
         ^~~~~
foo.cc:112:17: error: 'nowd' does not name a type; did you mean 'void'?
                 nowd:=dist+now^.w;
                 ^~~~
                 void
foo.cc:113:17: error: expected unqualified-id before 'if'
                 if (not visit[nowid]) and (not flag[nowid]) then
                 ^~
foo.cc:116:25: error: 'pred' does not name a type
                         pred[nowid]:=now^.w;
                         ^~~~
foo.cc:117:25: error: expected unqualified-id before 'if'
                         if nowd>max then
                         ^~
foo.cc:120:33: error: 'max' does not name a type
                                 max:=nowd;
                                 ^~~
foo.cc:121:25: error: 'end' does not name a type; did you mean 'enum'?
                         end;
                         ^~~
                         enum
foo.cc:122:28: error: expected constructor, destructor, or type conversion before '(' token
                         dfs(nowid,nowd);
                            ^
foo.cc:123:17: error: 'end' does not name a type; did you mean 'enum'?
                 end;
                 ^~~
                 enum
foo.cc:124:17: error: 'now' does not name a type
                 now:=now^.next;
                 ^~~
foo.cc:125:9: error: 'end' does not name a type; did you mean 'enum'?
         end;
         ^~~
         enum
foo.cc:126:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:128:1: error: 'procedure' does not name a type
 procedure work1;
 ^~~~~~~~~
foo.cc:129:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:131:10: error: found ':' in nested-name-specifier, expected '::'
         i:longint;
          ^
foo.cc:131:9: error: 'i' does not name a type
         i:longint;
         ^
foo.cc:132:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:134:9: error: 'pre' does not name a type
         pre[1]:=1;
         ^~~
foo.cc:135:12: error: expected constructor, destructor, or type conversion before '(' token
         dfs(1,0);
            ^
foo.cc:136:9: error: 'initdfs' does not name a type
         initdfs;
         ^~~~~~~
foo.cc:137:9: error: 'pre' does not name a type
         pre[key]:=key;
         ^~~
foo.cc:138:9: error: 'pred' does not name a type
         pred[key]:=0;
         ^~~~
foo.cc:139:12: error: expected constructor, destructor, or type conversion before '(' token
         dfs(key,0);
            ^
foo.cc:141:17: error: expected constructor, destructor, or type conversion before '(' token
         fillchar(sum,sizeof(sum),0);
                 ^
foo.cc:142:9: error: 'lists' does not name a type
         lists:=1;
         ^~~~~
foo.cc:143:9: error: 'list' does not name a type; did you mean 'int'?
         list[1]:=key;
         ^~~~
         int
foo.cc:144:9: error: 't' does not name a type
         t:=pred[key];
         ^
foo.cc:145:9: error: 'now' does not name a type
         now:=pre[key];
         ^~~
foo.cc:146:9: error: expected unqualified-id before 'while'
         while pre[now]<>now do
         ^~~~~
foo.cc:149:17: error: 'list' does not name a type; did you mean 'int'?
                 list[lists]:=now;
                 ^~~~
                 int
foo.cc:150:17: error: 'sum' does not name a type; did you mean 'enum'?
                 sum[lists]:=sum[lists-1]+t;
                 ^~~
                 enum
foo.cc:151:17: error: 't' does not name a type
                 t:=pred[now];
                 ^
foo.cc:152:17: error: 'now' does not name a type
                 now:=pre[now];
                 ^~~
foo.cc:153:9: error: 'end' does not name a type; did you mean 'enum'?
         end;
         ^~~
         enum
foo.cc:154:12: error: expected constructor, destructor, or type conversion before '(' token
         inc(lists);
            ^
foo.cc:155:9: error: 'list' does not name a type; did you mean 'int'?
         list[lists]:=now;
         ^~~~
         int
foo.cc:156:9: error: 'sum' does not name a type; did you mean 'enum'?
         sum[lists]:=sum[lists-1]+t;
         ^~~
         enum
foo.cc:157:9: error: expected unqualified-id before 'for'
         for i:=1 to lists do
         ^~~
foo.cc:159:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:161:1: error: 'procedure' does not name a type
 procedure work2;
 ^~~~~~~~~
foo.cc:162:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:164:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:168:20: error: expected constructor, destructor, or type conversion before '(' token
                 dfs(list[i],0);
                    ^
foo.cc:169:17: error: 'f' does not name a type
                 f[i]:=max;
                 ^
foo.cc:170:9: error: 'end' does not name a type; did you mean 'enum'?
         end;
         ^~~
         enum
foo.cc:171:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:173:1: error: 'procedure' does not name a type
 procedure work3;
 ^~~~~~~~~
foo.cc:174:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:176:9: error: 'tot' does not name a type
         tot,tmp:longint;
         ^~~
foo.cc:177:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:178:25: error: 'initq' does not name a type; did you mean 'int'?
         ans:=200000000; initq;
                         ^~~~~
                         int
foo.cc:179:9: error: 'tl' does not name a type
         tl:=1;  tr:=1;  put(f[1],1);
         ^~
foo.cc:179:17: error: 'tr' does not name a type
         tl:=1;  tr:=1;  put(f[1],1);
                 ^~
foo.cc:179:28: error: expected constructor, destructor, or type conversion before '(' token
         tl:=1;  tr:=1;  put(f[1],1);
                            ^
foo.cc:180:9: error: 'repeat' does not name a type
         repeat
         ^~~~~~
foo.cc:184:28: error: expected constructor, destructor, or type conversion before '(' token
                         put(f[tr],tr);
                            ^
foo.cc:185:17: error: 'end' does not name a type; did you mean 'enum'?
                 end;
                 ^~~
                 enum
foo.cc:186:17: error: 'tot' does not name a type
                 tot:=0;
                 ^~~
foo.cc:187:17: error: 'tot' does not name a type
                 tot:=maxf(sum[tl],find(tl));
                 ^~~
foo.cc:188:17: error: 'tot' does not name a type
                 tot:=maxf(tot,sum[lists]-sum[tr]);
                 ^~~
foo.cc:189:17: error: 'ans' does not name a type
                 ans:=minf(ans,tot);
                 ^~~
foo.cc:191:20: error: expected constructor, destructor, or type conversion before '(' token
                 inc(tl);
                    ^
foo.cc:192:18: error: expected unqualified-id before 'if'
                  if tr>=lists then break;
                  ^~
foo.cc:193:9: error: 'until' does not name a type
         until tr=lists;
         ^~~~~
foo.cc:194:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:196:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:198:9: error: 'work1' does not name a type
         work1;
         ^~~~~
foo.cc:199:9: error: 'work2' does not name a type
         work2;
         ^~~~~
foo.cc:200:9: error: 'work3' does not name a type
         work3;
         ^~~~~
foo.cc:201:16: error: expected constructor, destructor, or type conversion before '(' token
         writeln(ans);
                ^
foo.cc:202:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

正在同步测试数据，请稍后
自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。