/in/foo.cc:4:34: error: too many decimal points in number
    4 | v,pre,now,a,link          :array[1..50000]of longint;
      |                                  ^~~~~~~~
/in/foo.cc:5:34: error: too many decimal points in number
    5 | f                         :array[1..50000]of boolean;
      |                                  ^~~~~~~~
/in/foo.cc:6:34: error: too many decimal points in number
    6 | map                       :array[1..200,1..200]of boolean;
      |                                  ^~~~~~
/in/foo.cc:6:41: error: too many decimal points in number
    6 | map                       :array[1..200,1..200]of boolean;
      |                                         ^~~~~~
/in/foo.cc:9:34: error: too many decimal points in number
    9 | dx                        :array[1..8]of longint=(-2,-2,-1,-1,1,1,2,2);
      |                                  ^~~~
/in/foo.cc:10:34: error: too many decimal points in number
   10 | dy                        :array[1..8]of longint=(-1,1,-2,2,-2,2,-1,1);
      |                                  ^~~~
/in/foo.cc:1:1: error: 'program' does not name a type
    1 | program vijosP1729;
      | ^~~~~~~
/in/foo.cc:2:1: error: 'var' does not name a type
    2 | var
      | ^~~
/in/foo.cc:4:1: error: 'v' does not name a type
    4 | v,pre,now,a,link          :array[1..50000]of longint;
      | ^
/in/foo.cc:5:27: error: found ':' in nested-name-specifier, expected '::'
    5 | f                         :array[1..50000]of boolean;
      |                           ^
      |                           ::
/in/foo.cc:5:1: error: 'f' does not name a type
    5 | f                         :array[1..50000]of boolean;
      | ^
/in/foo.cc:6:27: error: found ':' in nested-name-specifier, expected '::'
    6 | map                       :array[1..200,1..200]of boolean;
      |                           ^
      |                           ::
/in/foo.cc:6:1: error: 'map' does not name a type
    6 | map                       :array[1..200,1..200]of boolean;
      | ^~~
/in/foo.cc:7:27: error: found ':' in nested-name-specifier, expected '::'
    7 | st                        :string;
      |                           ^
      |                           ::
/in/foo.cc:7:1: error: 'st' does not name a type
    7 | st                        :string;
      | ^~
/in/foo.cc:8:1: error: 's' does not name a type
    8 | s                         :char;
      | ^
/in/foo.cc:9:27: error: found ':' in nested-name-specifier, expected '::'
    9 | dx                        :array[1..8]of longint=(-2,-2,-1,-1,1,1,2,2);
      |                           ^
      |                           ::
/in/foo.cc:9:1: error: 'dx' does not name a type
    9 | dx                        :array[1..8]of longint=(-2,-2,-1,-1,1,1,2,2);
      | ^~
/in/foo.cc:10:27: error: found ':' in nested-name-specifier, expected '::'
   10 | dy                        :array[1..8]of longint=(-1,1,-2,2,-2,2,-1,1);
      |                           ^
      |                           ::
/in/foo.cc:10:1: error: 'dy' does not name a type
   10 | dy                        :array[1..8]of longint=(-1,1,-2,2,-2,2,-1,1);
      | ^~
/in/foo.cc:11:1: error: 'procedure' does not name a type
   11 | procedure init;
      | ^~~~~~~~~
/in/foo.cc:12:1: error: 'begin' does not name a type
   12 | begin
      | ^~~~~
/in/foo.cc:14:11: error: expected constructor, destructor, or type conversion before '(' token
   14 |   fillchar(map,sizeof(map),false);
      |           ^
/in/foo.cc:15:3: error: expected unqualified-id before 'for'
   15 |   for i:=1 to m do
      |   ^~~
/in/foo.cc:18:7: error: 's' does not name a type
   18 |       s:=st[1];
      |       ^
/in/foo.cc:19:7: error: expected unqualified-id before 'delete'
   19 |       delete(st,1,1);
      |       ^~~~~~
/in/foo.cc:20:10: error: expected constructor, destructor, or type conversion before '(' token
   20 |       val(st,j,c);
      |          ^
/in/foo.cc:21:7: error: 'k' does not name a type
   21 |       k:=ord(s)-64;
      |       ^
/in/foo.cc:22:7: error: 'map' does not name a type
   22 |       map[j,k]:=true;
      |       ^~~
/in/foo.cc:23:5: error: 'end' does not name a type
   23 |     end;
      |     ^~~
/in/foo.cc:24:1: error: 'end' does not name a type
   24 | end;
      | ^~~
/in/foo.cc:26:1: error: 'procedure' does not name a type
   26 | procedure add(x,y:longint);
      | ^~~~~~~~~
/in/foo.cc:27:1: error: 'begin' does not name a type
   27 | begin
      | ^~~~~
/in/foo.cc:29:3: error: 'v' does not name a type
   29 |   v[l]:=y;
      |   ^
/in/foo.cc:30:3: error: 'pre' does not name a type
   30 |   pre[l]:=now[x];
      |   ^~~
/in/foo.cc:31:3: error: 'now' does not name a type
   31 |   now[x]:=l;
      |   ^~~
/in/foo.cc:32:1: error: 'end' does not name a type
   32 | end;
      | ^~~
/in/foo.cc:34:1: error: 'procedure' does not name a type
   34 | procedure build_map;
      | ^~~~~~~~~
/in/foo.cc:35:1: error: 'begin' does not name a type
   35 | begin
      | ^~~~~
/in/foo.cc:37:3: error: expected unqualified-id before 'for'
   37 |   for i:=1 to n do
      |   ^~~
/in/foo.cc:42:21: error: 'a' does not name a type
   42 |             inc(k); a[k]:=(i-1)*n+j;
      |                     ^
/in/foo.cc:43:13: error: expected unqualified-id before 'for'
   43 |             for q:=1 to 8 do
      |             ^~~
/in/foo.cc:45:29: error: 'y' does not name a type
   45 |                 x:=i+dx[q]; y:=j+dy[q];
      |                             ^
/in/foo.cc:46:17: error: expected unqualified-id before 'if'
   46 |                 if (x>0)and(y>0)and(x<=n)and(y<=n)and(map[x,y])then
      |                 ^~
/in/foo.cc:49:15: error: 'end' does not name a type
   49 |               end;
      |               ^~~
/in/foo.cc:50:11: error: 'end' does not name a type
   50 |           end;
      |           ^~~
/in/foo.cc:51:7: error: 'end' does not name a type
   51 |       end;
      |       ^~~
/in/foo.cc:52:1: error: 'end' does not name a type
   52 | end;
      | ^~~
/in/foo.cc:54:1: error: 'function' does not name a type; did you mean 'union'?
   54 | function find(x:longint):boolean;
      | ^~~~~~~~
      | union
/in/foo.cc:55:1: error: 'var' does not name a type
   55 | var i,j,k:longint;
      | ^~~
/in/foo.cc:56:1: error: 'begin' does not name a type
   56 | begin
      | ^~~~~
/in/foo.cc:58:3: error: expected unqualified-id before 'while'
   58 |   while i<>0 do
      |   ^~~~~
/in/foo.cc:61:7: error: expected unqualified-id before 'if'
   61 |       if not f[k] then
      |       ^~
/in/foo.cc:64:11: error: expected unqualified-id before 'if'
   64 |           if (link[k]=0)or(find(link[k]))then
      |           ^~
/in/foo.cc:67:19: error: expected constructor, destructor, or type conversion before '(' token
   67 |               exit(true);
      |                   ^
/in/foo.cc:68:13: error: 'end' does not name a type
   68 |             end;
      |             ^~~
/in/foo.cc:69:9: error: 'end' does not name a type
   69 |         end;
      |         ^~~
/in/foo.cc:70:7: error: 'i' does not name a type
   70 |       i:=pre[i];
      |       ^
/in/foo.cc:71:5: error: 'end' does not name a type
   71 |     end;
      |     ^~~
/in/foo.cc:72:7: error: expected constructor, destructor, or type conversion before '(' token
   72 |   exit(false);
      |       ^
/in/foo.cc:73:1: error: 'end' does not name a type
   73 | end;
      | ^~~
/in/foo.cc:75:1: error: 'procedure' does not name a type
   75 | procedure main;
      | ^~~~~~~~~
/in/foo.cc:76:1: error: 'begin' does not name a type
   76 | begin
      | ^~~~~
/in/foo.cc:80:7: error: expected unqualified-id before 'if'
   80 |       if find(a[i]) then inc(ans);
      |       ^~
/in/foo.cc:81:5: error: 'end' does not name a type
   81 |     end;
      |     ^~~
/in/foo.cc:82:1: error: 'end' does not name a type
   82 | end;
      | ^~~
/in/foo.cc:84:1: error: 'begin' does not name a type
   84 | begin
      | ^~~~~
/in/foo.cc:88:3: error: 'build_map' does not name a type
   88 |   build_map;
      |   ^~~~~~~~~
/in/foo.cc:89:3: error: 'main' does not name a type
   89 |   main;
      |   ^~~~
/in/foo.cc:90:8: error: expected constructor, dest