foo.cc:1:16: error: too many decimal points in number
 type tt=array [0..50005] of longint;
                ^~~~~~~~
foo.cc:1:1: error: 'type' does not name a type
 type tt=array [0..50005] of longint;
 ^~~~
foo.cc:2:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:4:1: error: 'k' does not name a type
 k,p,n,m,i,l1,l2,l3:longint;
 ^
foo.cc:5:1: error: 'procedure' does not name a type
 procedure cch;
 ^~~~~~~~~
foo.cc:6:1: error: 'var' does not name a type; did you mean 'char'?
 var i,j,x:longint;
 ^~~
 char
foo.cc:7:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:9:1: error: expected unqualified-id before 'for'
 for i:=1 to l1 do
 ^~~
foo.cc:12:1: error: expected unqualified-id before 'for'
 for j:=1 to l2 do
 ^~~
foo.cc:15:1: error: 'c' does not name a type
 c[i+j-1]:=x mod 10;
 ^
foo.cc:16:1: error: 'x' does not name a type
 x:=x div 10;
 ^
foo.cc:17:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:18:1: error: 'c' does not name a type
 c[i+l2]:=x;
 ^
foo.cc:19:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:20:1: error: expected unqualified-id before 'if'
 if (c[l1+l2]<>0) then l3:=l1+l2 else l3:=l1+l2-1;
 ^~
foo.cc:21: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 jy(t:longint);
 ^~~~~~~~~
foo.cc:23:1: error: 'var' does not name a type; did you mean 'char'?
 var i,x:longint;
 ^~~
 char
foo.cc:24:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:26:1: error: 'x' does not name a type
 x:=0;
 ^
foo.cc:27:1: error: expected unqualified-id before 'for'
 for i:=l1 downto 1 do
 ^~~
foo.cc:30:1: error: 'b' does not name a type
 b[i]:=x div t;
 ^
foo.cc:31:1: error: 'x' does not name a type
 x:=x mod t;
 ^
foo.cc:32:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:33:1: error: 'l2' does not name a type
 l2:=l1;
 ^~
foo.cc:34:1: error: expected unqualified-id before 'while'
 while (b[l2]=0) and (l2>1) do dec(l2);
 ^~~~~
foo.cc:35:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:36:1: error: 'procedure' does not name a type
 procedure fj(x:longint);
 ^~~~~~~~~
foo.cc:37:1: error: 'var' does not name a type; did you mean 'char'?
 var i:longint;
 ^~~
 char
foo.cc:38:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:40:1: error: 'i' does not name a type
 i:=0;
 ^
foo.cc:41:1: error: expected unqualified-id before 'while'
 while (x<>0) do
 ^~~~~
foo.cc:42:15: error: 'b' does not name a type
 begin inc(i); b[i]:=x mod 10; x:=x div 10; end;
               ^
foo.cc:42:31: error: 'x' does not name a type
 begin inc(i); b[i]:=x mod 10; x:=x div 10; end;
                               ^
foo.cc:42:44: error: 'end' does not name a type; did you mean 'enum'?
 begin inc(i); b[i]:=x mod 10; x:=x div 10; end;
                                            ^~~
                                            enum
foo.cc:43:1: error: 'l2' does not name a type
 l2:=i;
 ^~
foo.cc:44:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:45:1: error: 'procedure' does not name a type
 procedure jzq(a:tt; l:longint);
 ^~~~~~~~~
foo.cc:45:22: error: found ':' in nested-name-specifier, expected '::'
 procedure jzq(a:tt; l:longint);
                      ^
foo.cc:45:21: error: 'l' does not name a type
 procedure jzq(a:tt; l:longint);
                     ^
foo.cc:46:1: error: 'var' does not name a type; did you mean 'char'?
 var i:longint;
 ^~~
 char
foo.cc:47:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:49:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
foo.cc:50:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:51:1: error: 'function' does not name a type; did you mean 'union'?
 function cky(x,y:longint):longint;
 ^~~~~~~~
 union
foo.cc:52:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:54:1: error: expected unqualified-id before 'if'
 if (y mod 2=0) then exit(sqr(cky(x,y div 2)) mod 1000)
 ^~
foo.cc:56:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:57:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:59:1: error: 'n' does not name a type
 n:=cky(p mod 1000,p)-1;
 ^
foo.cc:60:1: error: 'm' does not name a type
 m:=k-1;
 ^
foo.cc:61:1: error: 'a' does not name a type
 a[1]:=1; l1:=1;
 ^
foo.cc:61:10: error: 'l1' does not name a type
 a[1]:=1; l1:=1;
          ^~
foo.cc:62:1: error: expected unqualified-id before 'for'
 for i:=n-m+1 to n do
 ^~~
foo.cc:63:14: error: 'cch' does not name a type
 begin fj(i); cch; l1:=l3; a:=c; end;
              ^~~
foo.cc:63:19: error: 'l1' does not name a type
 begin fj(i); cch; l1:=l3; a:=c; end;
                   ^~
foo.cc:63:27: error: 'a' does not name a type
 begin fj(i); cch; l1:=l3; a:=c; end;
                           ^
foo.cc:63:33: error: 'end' does not name a type; did you mean 'enum'?
 begin fj(i); cch; l1:=l3; a:=c; end;
                                 ^~~
                                 enum
foo.cc:64:1: error: expected unqualified-id before 'for'
 for i:=2 to m do
 ^~~
foo.cc:65:14: error: 'a' does not name a type
 begin jy(i); a:=b; l1:=l2; end;
              ^
foo.cc:65:20: error: 'l1' does not name a type
 begin jy(i); a:=b; l1:=l2; end;
                    ^~
foo.cc:65:28: error: 'end' does not name a type; did you mean 'enum'?
 begin jy(i); a:=b; l1:=l2; end;
                            ^~~
                            enum
foo.cc:66:4: error: expected constructor, destructor, or type conversion before '(' token
 jzq(a,l1);
    ^
foo.cc:67:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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