foo.cc:3:9: error: too many decimal points in number
 a:array[1..500000] of int64;
         ^~~~~~~~~
foo.cc:13:9: error: too many decimal points in number
 b:array[1..11] of integer;
         ^~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:5:1: error: 'i' does not name a type
 i,j:longint;
 ^
foo.cc:7:1: error: 'k' does not name a type
 k,m,n,x,y,check,an,num,gd,divs:int64;
 ^
foo.cc:9:1: error: 'procedure' does not name a type
 procedure get;
 ^~~~~~~~~
foo.cc:11:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:15:1: error: 'i' does not name a type
 i,j:longint;
 ^
foo.cc:17:1: error: 'k' does not name a type
 k,sum:int64;
 ^
foo.cc:19:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:23:1: error: 'sum' does not name a type; did you mean 'enum'?
 sum:=0;
 ^~~
 enum
foo.cc:25:1: error: expected unqualified-id before 'while'
 while x>0 do
 ^~~~~
foo.cc:31:1: error: 'b' does not name a type
 b[sum]:=x mod 10;
 ^
foo.cc:33:1: error: 'x' does not name a type
 x:=x div 10;
 ^
foo.cc:35:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:37:1: error: expected unqualified-id before 'for'
 for i:=1 to sum do
 ^~~
foo.cc:41:29: error: 'gd' does not name a type
 if b[i]0 do begin inc(num); gd:=gd div 10; end;
                             ^~
foo.cc:41:44: error: 'end' does not name a type; did you mean 'enum'?
 if b[i]0 do begin inc(num); gd:=gd div 10; end;
                                            ^~~
                                            enum
foo.cc:43:4: error: expected constructor, destructor, or type conversion before '(' token
 dec(num);
    ^
foo.cc:45:1: error: 'divs' does not name a type
 divs:=1;
 ^~~~
foo.cc:47:1: error: expected unqualified-id before 'for'
 for i:=1 to num-1 do
 ^~~
foo.cc:51:1: error: 'check' does not name a type
 check:=0;
 ^~~~~
foo.cc:53:1: error: expected unqualified-id before 'while'
 while check=0 do
 ^~~~~
foo.cc:59:1: error: expected unqualified-id before 'for'
 for i:=1 to an do
 ^~~
foo.cc:69:1: error: 'check' does not name a type
 check:=1;
 ^~~~~
foo.cc:71:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:72:1: error: expected unqualified-id before 'if'
 if check=0 then begin inc(an); a[an]:=x; end;
 ^~
foo.cc:72:32: error: 'a' does not name a type
 if check=0 then begin inc(an); a[an]:=x; end;
                                ^
foo.cc:72:42: error: 'end' does not name a type; did you mean 'enum'?
 if check=0 then begin inc(an); a[an]:=x; end;
                                          ^~~
                                          enum
foo.cc:74:1: error: expected unqualified-id before 'while'
 while (x div divs = 0) and (x>0) do x:=x*10;
 ^~~~~
foo.cc:76:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:78:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
foo.cc:80:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:82:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

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