foo.cc:7:11: error: too many decimal points in number
 a,b:array[0..1000]of longint;
           ^~~~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:5:1: error: 'm' does not name a type
 m,i:longint;
 ^
foo.cc:7:1: error: 'a' does not name a type
 a,b:array[0..1000]of longint;
 ^
foo.cc:9:1: error: 'procedure' does not name a type
 procedure cheng;
 ^~~~~~~~~
foo.cc:11:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:19:1: error: expected unqualified-id before 'for'
 for i:=length(S)-1 downto 1 do
 ^~~
foo.cc:25:1: error: 'a' does not name a type
 a:=a mod 10;
 ^
foo.cc:27:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:29:1: error: 'a' does not name a type
 a[0]:=a[1] div 10;
 ^
foo.cc:31:1: error: 'a' does not name a type
 a[1]:=a[1] mod 10;
 ^
foo.cc:33:4: error: expected constructor, destructor, or type conversion before '(' token
 inc(a[length(s)]);
    ^
foo.cc:35:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:37:1: error: 'procedure' does not name a type
 procedure divv;
 ^~~~~~~~~
foo.cc:39:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:43:2: error: found ':' in nested-name-specifier, expected '::'
 x:int64;
  ^
foo.cc:43:1: error: 'x' does not name a type
 x:int64;
 ^
foo.cc:45:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:49:1: error: 't' does not name a type
 t:=a[0];
 ^
foo.cc:51:1: error: expected unqualified-id before 'for'
 for i:=1 to length(s) do
 ^~~
foo.cc:55:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(t);
        ^
foo.cc:57:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:59:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:63:7: error: expected constructor, destructor, or type conversion before '(' token
 readln(m);
       ^
foo.cc:65:1: error: expected unqualified-id before 'for'
 for i:=1 to length(s) do a[i]:=ord(s[i])-48;
 ^~~
foo.cc:67:1: error: 'cheng' does not name a type
 cheng;
 ^~~~~
foo.cc:69:1: error: 'divv' does not name a type
 divv;
 ^~~~
foo.cc:71:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。