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

[Hydro](https://hydro.ac)提供评测服务