foo.cc:3:12: error: too many decimal points in number
    3 |    a:array[1..366,1..20000]of record
      |            ^~~~~~
foo.cc:3:19: error: too many decimal points in number
    3 |    a:array[1..366,1..20000]of record
      |                   ^~~~~~~~
foo.cc:8:12: error: too many decimal points in number
    8 |    p:array[1..130]of longint;
      |            ^~~~~~
foo.cc:9:17: error: too many decimal points in number
    9 |    q,temp:array[0..100]of longint;
      |                 ^~~~~~
foo.cc:10:12: error: too many decimal points in number
   10 |    f:array[0..366,0..732]of longint;
      |            ^~~~~~
foo.cc:10:19: error: too many decimal points in number
   10 |    f:array[0..366,0..732]of longint;
      |                   ^~~~~~
foo.cc:11:14: error: too many decimal points in number
   11 |    num:array[1..366]of integer;
      |              ^~~~~~
foo.cc:108:57: warning: multi-character character constant [-Wmultichar]
  108 |     if (k>1)and(f[y1,k]=0)and(f[y1,k-1]=0) then writeln('-1')
      |                                                         ^~~~
foo.cc:1:1: error: 'program' does not name a type
    1 | program ctsc2000;
      | ^~~~~~~
foo.cc:2:1: error: 'var' does not name a type
    2 | var d1,l1,d2,k,y,z,y1,b,c,d,e,r,t,n,m,i,j,l:longint;
      | ^~~
foo.cc:3:5: error: found ':' in nested-name-specifier, expected '::'
    3 |    a:array[1..366,1..20000]of record
      |     ^
      |     ::
foo.cc:3:4: error: 'a' does not name a type
    3 |    a:array[1..366,1..20000]of record
      |    ^
foo.cc:5:6: error: 'end' does not name a type
    5 |      end;
      |      ^~~
foo.cc:6:6: error: 's1' does not name a type
    6 |      s1,s:string;
      |      ^~
foo.cc:7:4: error: 't1' does not name a type
    7 |    t1:char;
      |    ^~
foo.cc:8:5: error: found ':' in nested-name-specifier, expected '::'
    8 |    p:array[1..130]of longint;
      |     ^
      |     ::
foo.cc:8:4: error: 'p' does not name a type
    8 |    p:array[1..130]of longint;
      |    ^
foo.cc:9:4: error: 'q' does not name a type
    9 |    q,temp:array[0..100]of longint;
      |    ^
foo.cc:10:5: error: found ':' in nested-name-specifier, expected '::'
   10 |    f:array[0..366,0..732]of longint;
      |     ^
      |     ::
foo.cc:10:4: error: 'f' does not name a type
   10 |    f:array[0..366,0..732]of longint;
      |    ^
foo.cc:11:7: error: found ':' in nested-name-specifier, expected '::'
   11 |    num:array[1..366]of integer;
      |       ^
      |       ::
foo.cc:11:4: error: 'num' does not name a type; did you mean 'enum'?
   11 |    num:array[1..366]of integer;
      |    ^~~
      |    enum
foo.cc:12:1: error: 'function' does not name a type; did you mean 'union'?
   12 | function calc(b,c:integer):longint;
      | ^~~~~~~~
      | union
foo.cc:13:1: error: 'var' does not name a type
   13 | var s,i:integer;
      | ^~~
foo.cc:14:1: error: 'begin' does not name a type
   14 | begin
      | ^~~~~
foo.cc:16:3: error: expected unqualified-id before 'for'
   16 |   for i:=1to b-1 do
      |   ^~~
foo.cc:18:3: error: 's' does not name a type
   18 |   s:=s+c;
      |   ^
foo.cc:19:3: error: 'calc' does not name a type
   19 |   calc:=s;
      |   ^~~~
foo.cc:20:3: error: 'end' does not name a type
   20 |   end;
      |   ^~~
foo.cc:21:1: error: 'procedure' does not name a type
   21 | procedure sort(w,i,j:integer);
      | ^~~~~~~~~
foo.cc:22:1: error: 'var' does not name a type
   22 | var x,y,mid,s:longint;
      | ^~~
foo.cc:23:1: error: 'begin' does not name a type
   23 | begin
      | ^~~~~
foo.cc:25:2: error: 'y' does not name a type
   25 |  y:=j;
      |  ^
foo.cc:26:2: error: 'mid' does not name a type
   26 |  mid:=f[w,(i+j)div 2];
      |  ^~~
foo.cc:27:2: error: 'repeat' does not name a type
   27 |  repeat
      |  ^~~~~~
foo.cc:29:3: error: expected unqualified-id before 'while'
   29 |   while f[w,y]<mid do dec(y);
      |   ^~~~~
foo.cc:30:3: error: expected unqualified-id before 'if'
   30 |   if x<=y then
      |   ^~
foo.cc:33:4: error: 'f' does not name a type
   33 |    f[w,x]:=f[w,y];
      |    ^
foo.cc:34:4: error: 'f' does not name a type
   34 |    f[w,y]:=s;
      |    ^
foo.cc:35:7: error: expected constructor, destructor, or type conversion before '(' token
   35 |    dec(y);inc(x);
      |       ^
foo.cc:35:14: error: expected constructor, destructor, or type conversion before '(' token
   35 |    dec(y);inc(x);
      |              ^
foo.cc:36:4: error: 'end' does not name a type
   36 |    end;
      |    ^~~
foo.cc:37:4: error: 'until' does not name a type
   37 |    until x>y;
      |    ^~~~~
foo.cc:38:3: error: expected unqualified-id before 'if'
   38 |   if i<y then sort(w,i,y);
      |   ^~
foo.cc:39:3: error: expected unqualified-id before 'if'
   39 |   if j>x then sort(w,x,j);
      |   ^~
foo.cc:40:3: error: 'end' does not name a type
   40 |   end;
      |   ^~~
foo.cc:41:1: error: 'begin' does not name a type
   41 | begin
      | ^~~~~
foo.cc:43:8: error: expected constructor, destructor, or type conversion before '(' token
   43 |  readln(y);
      |        ^
foo.cc:44:10: error: expected constructor, destructor, or type conversion before '(' token
   44 |  fillchar(num,sizeof(num),0);
      |          ^
foo.cc:45:2: error: 'q' does not name a type
   45 |  q[0]:=0;
      |  ^
foo.cc:46:2: error: expected unqualified-id before 'for'
   46 |  for i:=1to 12 do
      |  ^~~
foo.cc:49:4: error: expected unqualified-id before numeric constant
   49 |    4,6,9,11:q[i]:=30;
      |    ^
foo.cc:50:4: error: 'end' does not name a type
   50 |    end;
      |    ^~~
foo.cc:51:3: error: expected unqualified-id before 'if'
   51 |   if (y mod 400=0)or ((y mod 4=0)and(y mod 100<>0))then
      |   ^~
foo.cc:54:4: error: 'q' does not name a type
   54 |    q[2]:=29;
      |    ^
foo.cc:55:4: error: 'end' does not name a type
   55 |    end
      |    ^~~
foo.cc:56:24: error: 'y1' does not name a type
   56 |    else begin q[2]:=28;y1:=365;end;
      |                        ^~
foo.cc:56:32: error: 'end' does not name a type
   56 |    else begin q[2]:=28;y1:=365;end;
      |                                ^~~
foo.cc:57:10: error: expected constructor, destructor, or type conversion before '(' token
   57 |    readln(r);
      |          ^
foo.cc:58:2: error: expected unqualified-id before 'for'
   58 |  for i:=1to r do
      |  ^~~
foo.cc:61:3: error: 'j' does not name a type
   61 |   j:=pos(' ',s);s1:=copy(s,1,j-1);
      |   ^
foo.cc:61:17: error: 's1' does not name a type
   61 |   j:=pos(' ',s);s1:=copy(s,1,j-1);
      |                 ^~
foo.cc:62:3: error: expected unqualified-id before 'delete'
   62 |   delete(s,1,j+3);
      |   ^~~~~~
foo.cc:63:3: error: 'j' does not name a type
   63 |   j:=pos('/',s1);
      |   ^
foo.cc:64:6: error: expected constructor, destructor, or type conversion before '(' token
   64 |   val(copy(s1,1,j-1),b);
      |      ^
foo.cc:65:6: error: expected constructor, destructor, or type conversion before '(' token
   65 |   val(copy(s1,j+1,length(s1)-j),c);
      |      ^
foo.cc:66:3: error: 'j' does not name a type
   66 |   j:=pos(' ',s);
      |   ^
foo.cc:67:3: error: 's1' does not name a type
   67 |   s1:=copy(s,1,j-1);
      |   ^~
foo.cc:68:3: error: expected unqualified-id before 'delete'
   68 |   delete(s,1,j);
      |   ^~~~~~
foo.cc:69:3: error: 'j' does not name a type
   69 |   j:=pos('/',s1);
      |   ^
foo.cc:70:6: error: expected constructor, destructor, or type conversion before '(' token
   70 |   val(copy(s1,1,j-1),d);
      |      ^
foo.cc:71:6: error: expected constructor, destructor, or type conversion before '(' token
   71 |   val(copy(s1,j+1,length(s1)-j),e);
      |      ^
foo.cc:72:3: error: 'd1' does not name a type
   72 |   d1:=calc(b,c);
      |   ^~
foo.cc:73:3: error: 'd2' does not name a type
   73 |   d2:=calc(d,e);
      |   ^~
foo.cc:74:6: error: expected constructor, destructor, or type conversion before '(' token
   74 |   inc(num[d2]);
      |      ^
foo.cc:75:3: error: 'a' does not name a type
   75 |   a[d2,num[d2]].x:=d1;
      |   ^
foo.cc:76:3: error: 'a' does not name a type
   76 |   a[d2,num[d2]].y:=d2-d1;
      |   ^
foo.cc:77:6: error: expected constructor, destructor, or type conversion before '(' token
   77 |   val(s,a[d2,num[d2]].z);
      |      ^
foo.cc:78:3: error: 'end' does not name a type
   78 |   end;
      |   ^~~
foo.cc:79:3: error: expected unqualified-id before 'for'
   79 |   for i:=1to t do
      |   ^~~
foo.cc:81:12: error: expected constructor, destructor, or type conversion before '(' token
   81 |    fillchar(f,sizeof(f),0);
      |            ^
foo.cc:82:4: error: expected unqualified-id before 'for'
   82 |    for i:=1to y1  do
      |    ^~~
foo.cc:85:5: error: expected unqualified-id before 'for'
   85 |     for j:=1 to num[i] do
      |     ^~~
foo.cc:88:9: error: expected unqualified-id before 'for'
   88 |         for l:=k+1 to 2*k do
      |         ^~~
foo.cc:90:13: error: expected constructor, destructor, or type conversion before '(' token
   90 |         sort(i,1,2*k);
      |             ^
foo.cc:91:9: error: 'm' does not name a type
   91 |         m:=1;
      |         ^
foo.cc:92:9: error: expected unqualified-id before 'for'
   92 |         for l:=1to k do
      |         ^~~
foo.cc:98:10: error: 'temp' does not name a type
   98 |          temp[l]:=f[i,m];
      |          ^~~~
foo.cc:99:13: error: expected constructor, destructor, or type conversion before '(' token
   99 |          inc(m);
      |             ^
foo.cc:100:10: error: expected unqualified-id before 'if'
  100 |          if m>2*k then begin
      |          ^~
foo.cc:101:40: error: expected unqualified-id before 'break'
  101 |           for z:=l+1to k do temp[z]:=0;break;end;
      |                                        ^~~~~
foo.cc:101:46: error: 'end' does not name a type
  101 |           for z:=l+1to k do temp[z]:=0;break;end;
      |                                              ^~~
foo.cc:102:10: error: 'end' does not name a type
  102 |          end;
      |          ^~~
foo.cc:103:10: error: 'end' does not name a type
  103 |          end;
      |          ^~~
foo.cc:104:9: error: expected unqualified-id before 'for'
  104 |         for l:=1to k do
      |         ^~~
foo.cc:106:5: error: 'end' does not name a type
  106 |     end;
      |     ^~~
foo.cc:107:5: error: 'end' does not name a type
  107 |     end;
      |     ^~~
foo.cc:108:5: error: expected unqualified-id before 'if'
  108 |     if (k>1)and(f[y1,k]=0)and(f[y1,k-1]=0) then writeln('-1')
      |     ^~
foo.cc:111:3: error: 'end' does not name a type
  111 |   end.
      |   ^~~

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