foo.cc:1:17: error: too many decimal points in number
 type arr1=array[1..70,1..9] of boolean;
                 ^~~~~
foo.cc:1:23: error: too many decimal points in number
 type arr1=array[1..70,1..9] of boolean;
                       ^~~~
foo.cc:3:12: error: too many decimal points in number
 arr2=array[1..70] of integer;
            ^~~~~
foo.cc:11:9: error: too many decimal points in number
 a:array[1..9,1..9] of integer;
         ^~~~
foo.cc:11:14: error: too many decimal points in number
 a:array[1..9,1..9] of integer;
              ^~~~
foo.cc:13:13: error: too many decimal points in number
 h1,h2:array[1..9,1..9] of boolean;
             ^~~~
foo.cc:13:18: error: too many decimal points in number
 h1,h2:array[1..9,1..9] of boolean;
                  ^~~~
foo.cc:15:10: error: too many decimal points in number
 h3:array[0..2,0..2,1..9] of boolean;
          ^~~~
foo.cc:15:15: error: too many decimal points in number
 h3:array[0..2,0..2,1..9] of boolean;
               ^~~~
foo.cc:15:20: error: too many decimal points in number
 h3:array[0..2,0..2,1..9] of boolean;
                    ^~~~
foo.cc:17:10: error: too many decimal points in number
 h4:array[1..70] of boolean;
          ^~~~~
foo.cc:1:1: error: 'type' does not name a type
 type arr1=array[1..70,1..9] of boolean;
 ^~~~
foo.cc:3:1: error: 'arr2' does not name a type
 arr2=array[1..70] of integer;
 ^~~~
foo.cc:5:1: error: 'var' does not name a type; did you mean 'char'?
 var n:integer;
 ^~~
 char
foo.cc:7:1: error: 'x' does not name a type
 x,y,l:arr2;
 ^
foo.cc:9:2: error: found ':' in nested-name-specifier, expected '::'
 h:arr1;
  ^
foo.cc:9:1: error: 'h' does not name a type
 h:arr1;
 ^
foo.cc:11:2: error: found ':' in nested-name-specifier, expected '::'
 a:array[1..9,1..9] of integer;
  ^
foo.cc:11:1: error: 'a' does not name a type
 a:array[1..9,1..9] of integer;
 ^
foo.cc:13:1: error: 'h1' does not name a type
 h1,h2:array[1..9,1..9] of boolean;
 ^~
foo.cc:15:3: error: found ':' in nested-name-specifier, expected '::'
 h3:array[0..2,0..2,1..9] of boolean;
   ^
foo.cc:15:1: error: 'h3' does not name a type
 h3:array[0..2,0..2,1..9] of boolean;
 ^~
foo.cc:17:3: error: found ':' in nested-name-specifier, expected '::'
 h4:array[1..70] of boolean;
   ^
foo.cc:17:1: error: 'h4' does not name a type
 h4:array[1..70] of boolean;
 ^~
foo.cc:19:1: error: 'procedure' does not name a type
 procedure ready;
 ^~~~~~~~~
foo.cc:21:1: error: 'var' does not name a type; did you mean 'char'?
 var st:string;
 ^~~
 char
foo.cc:23:1: error: 'i' does not name a type
 i,j,p,q:integer;
 ^
foo.cc:25:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:27:38: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(h1,sizeof(h1),true);fillchar(h2,sizeof(h2),true); fillchar(h3,sizeof(h3),true);
                                      ^
foo.cc:27:68: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(h1,sizeof(h1),true);fillchar(h2,sizeof(h2),true); fillchar(h3,sizeof(h3),true);
                                                                    ^
foo.cc:29:1: error: expected unqualified-id before 'for'
 for i:=1 to 9 do
 ^~~
foo.cc:35:1: error: expected unqualified-id before 'for'
 for j:=1 to 9 do if st[j]='0' then
 ^~~
foo.cc:39:9: error: 'x' does not name a type
 inc(n); x[n]:=i; y[n]:=j;
         ^
foo.cc:39:18: error: 'y' does not name a type
 inc(n); x[n]:=i; y[n]:=j;
                  ^
foo.cc:41:1: error: 'end' does not name a type; did you mean 'enum'?
 end else
 ^~~
 enum
foo.cc:45:19: error: 'a' does not name a type
 p:=ord(st[j])-48; a:=p;
                   ^
foo.cc:47:1: error: 'h1' does not name a type
 h1:=false; h2[j,p]:=false;
 ^~
foo.cc:47:12: error: 'h2' does not name a type
 h1:=false; h2[j,p]:=false;
            ^~
foo.cc:49:1: error: 'h3' does not name a type
 h3[(i-1)div 3,(j-1) div 3,p]:=false;
 ^~
foo.cc:51:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:53:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:55:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:63:12: error: 'h' does not name a type
 inc(l[i]); h:=true;
            ^
foo.cc:65:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:67:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:69:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:71:1: error: 'procedure' does not name a type
 procedure put;
 ^~~~~~~~~
foo.cc:73:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:integer;
 ^~~
 char
foo.cc:75:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:83:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
foo.cc:85:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:87:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:89:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:91:1: error: 'procedure' does not name a type
 procedure f(k:integer;h:arr1;l:arr2);
 ^~~~~~~~~
foo.cc:91:24: error: found ':' in nested-name-specifier, expected '::'
 procedure f(k:integer;h:arr1;l:arr2);
                        ^
foo.cc:91:23: error: 'h' does not name a type
 procedure f(k:integer;h:arr1;l:arr2);
                       ^
foo.cc:91:31: error: found ':' in nested-name-specifier, expected '::'
 procedure f(k:integer;h:arr1;l:arr2);
                               ^
foo.cc:91:30: error: 'l' does not name a type
 procedure f(k:integer;h:arr1;l:arr2);
                              ^
foo.cc:93:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j,q,sh,min:integer;
 ^~~
 char
foo.cc:95:2: error: found ':' in nested-name-specifier, expected '::'
 o:boolean;
  ^
foo.cc:95:1: error: 'o' does not name a type
 o:boolean;
 ^
foo.cc:97:3: error: found ':' in nested-name-specifier, expected '::'
 hz:arr1; lz:arr2;
   ^
foo.cc:97:1: error: 'hz' does not name a type
 hz:arr1; lz:arr2;
 ^~
foo.cc:97:12: error: found ':' in nested-name-specifier, expected '::'
 hz:arr1; lz:arr2;
            ^
foo.cc:97:10: error: 'lz' does not name a type
 hz:arr1; lz:arr2;
          ^~
foo.cc:99:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:109:1: error: expected unqualified-id before 'for'
 for i:=1 to n do if not h4[i] then if l[i]
 ^~~

正在同步测试数据，请稍后
[Hydro](https://hydro.ac)提供评测服务