foo.cc:1:17: error: too many decimal points in number
 type puzz=array[0..5,0..5]of byte;
                 ^~~~
foo.cc:1:22: error: too many decimal points in number
 type puzz=array[0..5,0..5]of byte;
                      ^~~~
foo.cc:5:11: error: too many decimal points in number
 w,h:array[0..5]of longint;
           ^~~~
foo.cc:7:9: error: too many decimal points in number
 s:array[0..5]of puzz;
         ^~~~
foo.cc:9:9: error: too many decimal points in number
 v:array[0..5]of boolean;
         ^~~~
foo.cc:123:26: error: too many decimal points in number
 var i,j:longint;pp:array[0..5,0..5]of byte;
                          ^~~~
foo.cc:123:31: error: too many decimal points in number
 var i,j:longint;pp:array[0..5,0..5]of byte;
                               ^~~~
foo.cc:141:26: error: too many decimal points in number
 var i,j:longint;pp:array[0..5,0..5]of byte;
                          ^~~~
foo.cc:141:31: error: too many decimal points in number
 var i,j:longint;pp:array[0..5,0..5]of byte;
                               ^~~~
foo.cc:365:9: warning: character constant too long for its type
 writeln('No solution possible');
         ^~~~~~~~~~~~~~~~~~~~~~
foo.cc:377:9: warning: character constant too long for its type
 writeln('No solution possible');
         ^~~~~~~~~~~~~~~~~~~~~~
foo.cc:1:1: error: 'type' does not name a type
 type puzz=array[0..5,0..5]of byte;
 ^~~~
foo.cc:3:1: error: 'var' does not name a type; did you mean 'char'?
 var n,all,side:longint;
 ^~~
 char
foo.cc:5:1: error: 'w' does not name a type
 w,h:array[0..5]of longint;
 ^
foo.cc:7:2: error: found ':' in nested-name-specifier, expected '::'
 s:array[0..5]of puzz;
  ^
foo.cc:7:1: error: 's' does not name a type
 s:array[0..5]of puzz;
 ^
foo.cc:9:2: error: found ':' in nested-name-specifier, expected '::'
 v:array[0..5]of boolean;
  ^
foo.cc:9:1: error: 'v' does not name a type
 v:array[0..5]of boolean;
 ^
foo.cc:11:4: error: found ':' in nested-name-specifier, expected '::'
 map:puzz;
    ^
foo.cc:11:1: error: 'map' does not name a type
 map:puzz;
 ^~~
foo.cc:13:1: error: 'procedure' does not name a type
 procedure cut(i:longint);
 ^~~~~~~~~
foo.cc:15:1: error: 'var' does not name a type; did you mean 'char'?
 var z,j,k:longint;empty:boolean;
 ^~~
 char
foo.cc:15:24: error: found ':' in nested-name-specifier, expected '::'
 var z,j,k:longint;empty:boolean;
                        ^
foo.cc:15:19: error: 'empty' does not name a type
 var z,j,k:longint;empty:boolean;
                   ^~~~~
foo.cc:17:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:21:1: error: expected unqualified-id before 'while'
 while empty do
 ^~~~~
foo.cc:35:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
foo.cc:37:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:39:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:41:1: error: expected unqualified-id before 'if'
 if empty then dec(w[i]);
 ^~
foo.cc:43:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:45:1: error: 'empty' does not name a type
 empty:=true;
 ^~~~~
foo.cc:47:1: error: expected unqualified-id before 'while'
 while empty do
 ^~~~~
foo.cc:61:1: error: expected unqualified-id before 'break'
 break;
 ^~~~~
foo.cc:63:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:65:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:67:1: error: expected unqualified-id before 'if'
 if empty then dec(h[i]);
 ^~
foo.cc:69:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:71:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:73:1: error: 'procedure' does not name a type
 procedure init;
 ^~~~~~~~~
foo.cc:75:1: error: 'var' does not name a type; did you mean 'char'?
 var k,i,j:longint;ch:char;
 ^~~
 char
foo.cc:75:19: error: 'ch' does not name a type; did you mean 'char'?
 var k,i,j:longint;ch:char;
                   ^~
                   char
foo.cc:77:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:81:1: error: 'all' does not name a type
 all:=0;
 ^~~
foo.cc:83:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:89:1: error: expected unqualified-id before 'for'
 for j:=1 to h[i] do
 ^~~
foo.cc:99:1: error: expected unqualified-id before 'if'
 if ch='1' then s[i][j,k]:=1 else s[i][j,k]:=0;
 ^~
foo.cc:101:1: error: expected unqualified-id before 'if'
 if s[i][j,k]=1 then
 ^~
foo.cc:107:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:109:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:111:1: error: 'readln' does not name a type
 readln;
 ^~~~~~
foo.cc:113:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:115:4: error: expected constructor, destructor, or type conversion before '(' token
 cut(i);
    ^
foo.cc:117:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:119:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:121:1: error: 'procedure' does not name a type
 procedure clear(y,x,t:longint);
 ^~~~~~~~~
foo.cc:123:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:longint;pp:array[0..5,0..5]of byte;
 ^~~
 char
foo.cc:123:19: error: found ':' in nested-name-specifier, expected '::'
 var i,j:longint;pp:array[0..5,0..5]of byte;
                   ^
foo.cc:123:17: error: 'pp' does not name a type
 var i,j:longint;pp:array[0..5,0..5]of byte;
                 ^~
foo.cc:125:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:135:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:137:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:139:1: error: 'procedure' does not name a type
 procedure add(y,x,t:longint;var ok:boolean);
 ^~~~~~~~~
foo.cc:139:29: error: 'var' does not name a type; did you mean 'char'?
 procedure add(y,x,t:longint;var ok:boolean);
                             ^~~
                             char
foo.cc:141:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:longint;pp:array[0..5,0..5]of byte;
 ^~~
 char
foo.cc:141:19: error: found ':' in nested-name-specifier, expected '::'
 var i,j:longint;pp:array[0..5,0..5]of byte;
                   ^
foo.cc:141:17: error: 'pp' does not name a type
 var i,j:longint;pp:array[0..5,0..5]of byte;
                 ^~
foo.cc:143:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:151:1: error: 'exit' does not name a type
 exit;
 ^~~~
foo.cc:153:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:155:1: error: expected unqualified-id before 'for'
 for i:=1 to h[t] do
 ^~~
foo.cc:169:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:177:1: error: 'exit' does not name a type
 exit;
 ^~~~
foo.cc:179:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:181:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:189:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:191:1: error: expected unqualified-id before 'for'
 for i:=1 to h[t] do
 ^~~
foo.cc:199:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:201:1: error: 'ok' does not name a type
 ok:=true;
 ^~
foo.cc:203:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:205:1: error: 'procedure' does not name a type
 procedure print;
 ^~~~~~~~~
foo.cc:207:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j:longint;
 ^~~
 char
foo.cc:209:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:221:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:223:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
foo.cc:225:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:227:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:229:1: error: 'procedure' does not name a type
 procedure search(y,x,t:longint);
 ^~~~~~~~~
foo.cc:231:1: error: 'var' does not name a type; did you mean 'char'?
 var a,b,i:longint;ok:boolean;
 ^~~
 char
foo.cc:231:21: error: found ':' in nested-name-specifier, expected '::'
 var a,b,i:longint;ok:boolean;
                     ^
foo.cc:231:19: error: 'ok' does not name a type
 var a,b,i:longint;ok:boolean;
                   ^~
foo.cc:233:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:245:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:247:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:249:1: error: expected unqualified-id before 'if'
 if x>side then
 ^~
foo.cc:255:1: error: 'x' does not name a type
 x:=1;
 ^
foo.cc:257:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:259:1: error: expected unqualified-id before 'if'
 if map[y,x]=0 then
 ^~
foo.cc:273:1: error: expected unqualified-id before 'if'
 if ok then
 ^~
foo.cc:279:7: error: expected constructor, destructor, or type conversion before '(' token
 search(y,x,t+1);
       ^
foo.cc:281:6: error: expected constructor, destructor, or type conversion before '(' token
 clear(y,x,i);
      ^
foo.cc:283:1: error: 'v' does not name a type
 v[i]:=false;
 ^
foo.cc:285:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:287:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:295:1: error: expected unqualified-id before 'if'
 if ok then
 ^~
foo.cc:301:7: error: expected constructor, destructor, or type conversion before '(' token
 search(y,x+1,t+1);
       ^
foo.cc:303:6: error: expected constructor, destructor, or type conversion before '(' token
 clear(y,x,i);
      ^
foo.cc:305:1: error: 'v' does not name a type
 v[i]:=false;
 ^
foo.cc:307:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:309:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:311:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:313:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:329:1: error: expected unqualified-id before 'if'
 if ok then
 ^~
foo.cc:335:7: error: expected constructor, destructor, or type conversion before '(' token
 search(y,x,t+1);
       ^
foo.cc:337:6: error: expected constructor, destructor, or type conversion before '(' token
 clear(y,x,i);
      ^
foo.cc:339:1: error: 'v' does not name a type
 v[i]:=false;
 ^
foo.cc:341:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:343:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:345:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:347:7: error: expected constructor, destructor, or type conversion before '(' token
 search(y,x+1,t);
       ^
foo.cc:349:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:351:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:353:1: error: 'procedure' does not name a type
 procedure find;
 ^~~~~~~~~
foo.cc:355:1: error: 'var' does not name a type; did you mean 'char'?
 var o:real;
 ^~~
 char
foo.cc:357:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:361:1: error: expected unqualified-id before 'if'
 if oint(o) then
 ^~
foo.cc:367:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:369:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:371:1: error: 'side' does not name a type; did you mean 'signed'?
 side:=trunc(sqrt(all));
 ^~~~
 signed
foo.cc:373:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(v,sizeof(v),0);
         ^
foo.cc:375:7: error: expected constructor, destructor, or type conversion before '(' token
 search(1,1,1);
       ^
foo.cc:377:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln('No solution possible');
        ^
foo.cc:379:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:381:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:383:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:387:1: error: 'find' does not name a type; did you mean 'int'?
 find;
 ^~~~
 int
foo.cc:389:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。