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

正在同步测试数据，请稍后
[Hydro](https://hydro.ac)提供评测服务