foo.cc:5:13: error: too many decimal points in number
 try : array[1..7]of longint=(3,6,12,15,24,27,30);
             ^~~~
foo.cc:9:14: error: too many decimal points in number
 sqtype=array[0..31,0..31]of longint;
              ^~~~~
foo.cc:9:20: error: too many decimal points in number
 sqtype=array[0..31,0..31]of longint;
                    ^~~~~
foo.cc:1:1: error: 'program' does not name a type
 program p1194;
 ^~~~~~~
foo.cc:5:1: error: expected unqualified-id before 'try'
 try : array[1..7]of longint=(3,6,12,15,24,27,30);
 ^~~
foo.cc:7:1: error: 'type' does not name a type
 type
 ^~~~
foo.cc:11:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:15:1: error: 'ans' does not name a type
 ans,w : sqtype;
 ^~~
foo.cc:17:6: error: found ':' in nested-name-specifier, expected '::'
 flag : boolean;
      ^
foo.cc:17:1: error: 'flag' does not name a type; did you mean 'float'?
 flag : boolean;
 ^~~~
 float
foo.cc:19:1: error: 'procedure' does not name a type
 procedure mult(a,b : sqtype; var c : sqtype);
 ^~~~~~~~~
foo.cc:19:30: error: 'var' does not name a type; did you mean 'char'?
 procedure mult(a,b : sqtype; var c : sqtype);
                              ^~~
                              char
foo.cc:21:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:25:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:29:1: error: expected unqualified-id before 'for'
 for i := 0 to lim do
 ^~~
foo.cc:37:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:39:1: error: 'procedure' does not name a type
 procedure calc(x : longint);
 ^~~~~~~~~
foo.cc:41:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:45:5: error: expected constructor, destructor, or type conversion before '(' token
 calc(x shr 1);
     ^
foo.cc:47:5: error: expected constructor, destructor, or type conversion before '(' token
 mult(ans,ans,ans);
     ^
foo.cc:49:1: error: expected unqualified-id before 'if'
 if odd(x) then mult(ans,w,ans);
 ^~
foo.cc:51:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:53:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:57:1: error: 'lim' does not name a type
 lim := 1 shl m -1;
 ^~~
foo.cc:59:1: error: expected unqualified-id before 'for'
 for i := 0 to lim do
 ^~~
foo.cc:65:1: error: 'w' does not name a type
 w := 1;
 ^
foo.cc:67:1: error: expected unqualified-id before 'for'
 for j := 1 to 7 do
 ^~~
foo.cc:77:1: error: expected unqualified-id before 'for'
 for k := 0 to (m-1) do
 ^~~
foo.cc:85:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
foo.cc:87:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:89:1: error: expected unqualified-id before 'if'
 if flag then
 ^~
foo.cc:93:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:95:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:97:1: error: 'ans' does not name a type
 ans := w;
 ^~~
foo.cc:99:5: error: expected constructor, destructor, or type conversion before '(' token
 calc(n);
     ^
foo.cc:101:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(ans[lim,lim]);
        ^
foo.cc:103:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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