foo.cc:2:9: error: too many decimal points in number
 a:array[0..201,0..201]of char;
         ^~~~~~
foo.cc:2:16: error: too many decimal points in number
 a:array[0..201,0..201]of char;
                ^~~~~~
foo.cc:71:7: error: empty character constant
 if s<>'' then
       ^~
foo.cc:95:9: warning: character constant too long for its type
 writeln('55555~~');
         ^~~~~~~~~
foo.cc:100:14: warning: character constant too long for its type
 else writeln('55555~~');
              ^~~~~~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:3:1: error: 'n' does not name a type
 n,m,i,j,k,l,sum,ti,tj,di,dj,bi,bj:longint;
 ^
foo.cc:4:2: error: found ':' in nested-name-specifier, expected '::'
 s:string;
  ^
foo.cc:4:1: error: 's' does not name a type
 s:string;
 ^
foo.cc:6:1: error: 'procedure' does not name a type
 procedure n1;
 ^~~~~~~~~
foo.cc:7:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:9:1: error: 'bi' does not name a type
 bi:=ti-di;
 ^~
foo.cc:10:1: error: 'bj' does not name a type
 bj:=abs(tj-dj);
 ^~
foo.cc:11:1: error: expected unqualified-id before 'if'
 if not(bj<=bi) then inc(sum);
 ^~
foo.cc:12:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:14:1: error: 'procedure' does not name a type
 procedure e1;
 ^~~~~~~~~
foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:17:1: error: 'bi' does not name a type
 bi:=abs(ti-di);
 ^~
foo.cc:18:1: error: 'bj' does not name a type
 bj:=dj-tj;
 ^~
foo.cc:19:1: error: expected unqualified-id before 'if'
 if not(bi<=bj) then inc(sum);
 ^~
foo.cc:20:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:22:1: error: 'procedure' does not name a type
 procedure w1;
 ^~~~~~~~~
foo.cc:23:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:25:1: error: 'bi' does not name a type
 bi:=abs(ti-di);
 ^~
foo.cc:26:1: error: 'bj' does not name a type
 bj:=tj-dj;
 ^~
foo.cc:27:1: error: expected unqualified-id before 'if'
 if not(bi<=bj) then inc(sum);
 ^~
foo.cc:28:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:30:1: error: 'procedure' does not name a type
 procedure s1;
 ^~~~~~~~~
foo.cc:31:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:33:1: error: 'bi' does not name a type
 bi:=di-ti;
 ^~
foo.cc:34:1: error: 'bj' does not name a type
 bj:=abs(tj-dj);
 ^~
foo.cc:35:1: error: expected unqualified-id before 'if'
 if not(bj<=bi) then inc(sum);
 ^~
foo.cc:36:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:38:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:40:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:43:1: error: 'readln' does not name a type
 readln;
 ^~~~~~
foo.cc:44:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:45:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(s);
       ^
foo.cc:46:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(l);
       ^
foo.cc:47:1: error: expected unqualified-id before 'for'
 for i:=1 to n do
 ^~~
foo.cc:53:1: error: 'dj' does not name a type
 dj:=j;
 ^~
foo.cc:54:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:58:1: error: 'tj' does not name a type
 tj:=j;
 ^~
foo.cc:59:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:60:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:63:1: error: expected unqualified-id before 'if'
 if (di=0)or(ti=0) then
 ^~
foo.cc:66:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:67:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:69:1: error: 'a' does not name a type
 a[ti,tj]:='.';
 ^
foo.cc:70:1: error: 'k' does not name a type
 k:=0;sum:=0;
 ^
foo.cc:70:6: error: 'sum' does not name a type; did you mean 'enum'?
 k:=0;sum:=0;
      ^~~
      enum
foo.cc:71:1: error: expected unqualified-id before 'if'
 if s<>'' then
 ^~
foo.cc:77:1: error: expected unqualified-id before 'if'
 if k>length(s) then k:=1;
 ^~
foo.cc:78:1: error: expected unqualified-id before 'case'
 case s[k] of
 ^~~~
foo.cc:80:1: error: expected unqualified-id before 'E'
 'E':e1;
 ^~~
foo.cc:81:1: error: expected unqualified-id before 'W'
 'W':w1;
 ^~~
foo.cc:82:1: error: expected unqualified-id before 'S'
 'S':s1;
 ^~~
foo.cc:83:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:84:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:85:1: error: 'end' does not name a type; did you mean 'enum'?
 end
 ^~~
 enum
foo.cc:90:1: error: 'bj' does not name a type
 bj:=abs(tj-dj);
 ^~
foo.cc:92:1: error: expected unqualified-id before 'if'
 if not(bj<=bi) then sum:=l
 ^~
foo.cc:96:1: error: 'halt' does not name a type
 halt;
 ^~~~
foo.cc:97:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:98:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:99:1: error: expected unqualified-id before 'if'
 if sum>0 then writeln(sum)
 ^~
foo.cc:101:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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