/in/foo.cc:9:12: error: too many decimal points in number
 head:array[1..300] of point;
            ^~~~~~
/in/foo.cc:10:12: error: too many decimal points in number
 list:array[1..300] of longint;
            ^~~~~~
/in/foo.cc:12:18: error: too many decimal points in number
 visit,flag:array[1..300] of boolean;
                  ^~~~~~
/in/foo.cc:13:22: error: too many decimal points in number
 pre,pred,sum,f:array[1..300] of longint;
                      ^~~~~~
/in/foo.cc:16:16: error: too many decimal points in number
 queue,qt:array[1..300] of longint;
                ^~~~~~
/in/foo.cc:1:1: error: 'type' does not name a type
 type
 ^~~~
/in/foo.cc:3:1: error: 'node' does not name a type
 node=record
 ^~~~
/in/foo.cc:5:5: error: found ':' in nested-name-specifier, expected '::'
 next:point;
     ^
/in/foo.cc:5:1: error: 'next' does not name a type
 next:point;
 ^~~~
/in/foo.cc:6:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:7:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:9:5: error: found ':' in nested-name-specifier, expected '::'
 head:array[1..300] of point;
     ^
/in/foo.cc:9:1: error: 'head' does not name a type
 head:array[1..300] of point;
 ^~~~
/in/foo.cc:10:5: error: found ':' in nested-name-specifier, expected '::'
 list:array[1..300] of longint;
     ^
/in/foo.cc:10:1: error: 'list' does not name a type
 list:array[1..300] of longint;
 ^~~~
/in/foo.cc:11:6: error: found ':' in nested-name-specifier, expected '::'
 lists:longint;
      ^
/in/foo.cc:11:1: error: 'lists' does not name a type
 lists:longint;
 ^~~~~
/in/foo.cc:12:1: error: 'visit' does not name a type
 visit,flag:array[1..300] of boolean;
 ^~~~~
/in/foo.cc:13:1: error: 'pre' does not name a type
 pre,pred,sum,f:array[1..300] of longint;
 ^~~
/in/foo.cc:14:1: error: 'key' does not name a type
 key,max:longint;
 ^~~
/in/foo.cc:15:4: error: found ':' in nested-name-specifier, expected '::'
 ans:longint;
    ^
/in/foo.cc:15:1: error: 'ans' does not name a type
 ans:longint;
 ^~~
/in/foo.cc:16:1: error: 'queue' does not name a type
 queue,qt:array[1..300] of longint;
 ^~~~~
/in/foo.cc:17:1: error: 'qhead' does not name a type
 qhead,qtail:longint;
 ^~~~~
/in/foo.cc:18:1: error: 'function' does not name a type
 function maxf(a,b:longint):longint;
 ^~~~~~~~
/in/foo.cc:19:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:24:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:25:1: error: 'function' does not name a type
 function minf(a,b:longint):longint;
 ^~~~~~~~
/in/foo.cc:26:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:31:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:32:1: error: 'procedure' does not name a type
 procedure initdfs;
 ^~~~~~~~~
/in/foo.cc:33:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:35:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(pre,sizeof(pre),0);
         ^
/in/foo.cc:36:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(pred,sizeof(pred),0);
         ^
/in/foo.cc:37:1: error: 'max' does not name a type
 max:=0;
 ^~~
/in/foo.cc:38:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:39:1: error: 'procedure' does not name a type
 procedure initq;
 ^~~~~~~~~
/in/foo.cc:40:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:42:1: error: 'qtail' does not name a type
 qtail:=1;
 ^~~~~
/in/foo.cc:43:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:44:1: error: 'procedure' does not name a type
 procedure put(data,id:longint);
 ^~~~~~~~~
/in/foo.cc:45:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:47:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:49:1: error: expected unqualified-id before 'while'
 while queue[tmp]>data do
 ^~~~~
/in/foo.cc:51:1: error: 'queue' does not name a type
 queue[tmp]:=data;
 ^~~~~
/in/foo.cc:52:1: error: 'qt' does not name a type
 qt[tmp]:=id;
 ^~
/in/foo.cc:53:1: error: 'qtail' does not name a type
 qtail:=tmp;
 ^~~~~
/in/foo.cc:54:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:55:1: error: 'function' does not name a type
 function find(l:longint):longint;
 ^~~~~~~~
/in/foo.cc:56:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:58:5: error: expected constructor, destructor, or type conversion before '(' token
 exit(queue[qhead]);
     ^
/in/foo.cc:59:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:60:1: error: 'procedure' does not name a type
 procedure initp(x:longint);
 ^~~~~~~~~
/in/foo.cc:61:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:63:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:64:1: error: 'procedure' does not name a type
 procedure insert(u,v,w:longint);
 ^~~~~~~~~
/in/foo.cc:65:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:67:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:69:1: error: 'p' does not name a type
 p^.data:=v;
 ^
/in/foo.cc:70:1: error: 'p' does not name a type
 p^.w:=w;
 ^
/in/foo.cc:71:1: error: 'p' does not name a type
 p^.next:=head[u];
 ^
/in/foo.cc:72:1: error: 'head' does not name a type
 head[u]:=p;
 ^~~~
/in/foo.cc:73:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:74:1: error: 'procedure' does not name a type
 procedure inputdata;
 ^~~~~~~~~
/in/foo.cc:75:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:77:1: error: 'u' does not name a type
 u,v,w:longint;
 ^
/in/foo.cc:78:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:80:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(n,s);
       ^
/in/foo.cc:81:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
/in/foo.cc:83:1: error: expected unqualified-id before 'for'
 for i:=1 to n-1 do
 ^~~
/in/foo.cc:86:7: error: expected constructor, destructor, or type conversion before '(' token
 insert(u,v,w);
       ^
/in/foo.cc:87:7: error: expected constructor, destructor, or type conversion before '(' token
 insert(v,u,w);
       ^
/in/foo.cc:88:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:89:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:90:1: error: 'procedure' does not name a type
 procedure dfs(id,dist:longint);
 ^~~~~~~~~
/in/foo.cc:91:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:93:1: error: 'nowid' does not name a type
 nowid,nowd:longint;
 ^~~~~
/in/foo.cc:94:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:96:1: error: 'now' does not name a type
 now:=head[id];
 ^~~
/in/foo.cc:97:1: error: expected unqualified-id before 'while'
 while now<>nil do
 ^~~~~
/in/foo.cc:100:1: error: 'nowd' does not name a type
 nowd:=dist+now^.w;
 ^~~~
/in/foo.cc:101:1: error: expected unqualified-id before 'if'
 if (not visit[nowid]) and (not flag[nowid]) then
 ^~
/in/foo.cc:104:1: error: 'pred' does not name a type
 pred[nowid]:=now^.w;
 ^~~~
/in/foo.cc:105:1: error: expected unqualified-id before 'if'
 if nowd>max then
 ^~
/in/foo.cc:108:1: error: 'max' does not name a type
 max:=nowd;
 ^~~
/in/foo.cc:109:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:110:4: error: expected constructor, destructor, or type conversion before '(' token
 dfs(nowid,nowd);
    ^
/in/foo.cc:111:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:112:1: error: 'now' does not name a type
 now:=now^.next;
 ^~~
/in/foo.cc:113:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:114:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:115:1: error: 'procedure' does not name a type
 procedure work1;
 ^~~~~~~~~
/in/foo.cc:116:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:118:2: error: found ':' in nested-name-specifier, expected '::'
 i:longint;
  ^
/in/foo.cc:118:1: error: 'i' does not name a type
 i:longint;
 ^
/in/foo.cc:119:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:121:1: error: 'pre' does not name a type
 pre[1]:=1;
 ^~~
/in/foo.cc:122:4: error: expected constructor, destructor, or type conversion before '(' token
 dfs(1,0);
    ^
/in/foo.cc:123:1: error: 'initdfs' does not name a type
 initdfs;
 ^~~~~~~
/in/foo.cc:124:1: error: 'pre' does not name