foo.cc:9:9: error: too many decimal points in number
    9 | a:array[1..1000] of char;
      |         ^~~~~~~
foo.cc:1:1: error: 'program' does not name a type
    1 | program kk;
      | ^~~~~~~
foo.cc:3:1: error: 'var' does not name a type
    3 | var ss,s:string;
      | ^~~
foo.cc:5:1: error: 'n' does not name a type
    5 | n,l,i,j:integer;
      | ^
foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
    7 | ji:longint;
      |   ^
      |   ::
foo.cc:7:1: error: 'ji' does not name a type
    7 | ji:longint;
      | ^~
foo.cc:9:2: error: found ':' in nested-name-specifier, expected '::'
    9 | a:array[1..1000] of char;
      |  ^
      |  ::
foo.cc:9:1: error: 'a' does not name a type
    9 | a:array[1..1000] of char;
      | ^
foo.cc:11:1: error: 'begin' does not name a type
   11 | begin
      | ^~~~~
foo.cc:15:1: error: 'l' does not name a type
   15 | l:=length(ss);
      | ^
foo.cc:17:1: error: expected unqualified-id before 'for'
   17 | for i:=1 to l do
      | ^~~
foo.cc:27:1: error: expected unqualified-id before 'break'
   27 | break;
      | ^~~~~
foo.cc:29:1: error: 'end' does not name a type
   29 | end;
      | ^~~
foo.cc:31:1: error: 'ji' does not name a type
   31 | ji:=1;
      | ^~
foo.cc:33:1: error: expected unqualified-id before 'for'
   33 | for i:=1 to n do
      | ^~~
foo.cc:39:1: error: expected unqualified-id before 'while'
   39 | while ji mod 10=0 do ji:=ji div 10;
      | ^~~~~
foo.cc:41:1: error: expected unqualified-id before 'if'
   41 | if ji mod 100 then ji:=ji mod 10;
      | ^~
foo.cc:43:1: error: 'end' does not name a type
   43 | end;
      | ^~~
foo.cc:45:4: error: expected constructor, destructor, or type conversion before '(' token
   45 | str(ji,s);
      |    ^
foo.cc:47:1: error: 'l' does not name a type
   47 | l:=length(s);
      | ^
foo.cc:49:1: error: expected unqualified-id before 'for'
   49 | for i:=1 to l do
      | ^~~
foo.cc:53:1: error: expected unqualified-id before 'for'
   53 | for i:=l downto 1 do
      | ^~~
foo.cc:61:1: error: 'exit' does not name a type
   61 | exit;
      | ^~~~
foo.cc:63:1: error: 'end' does not name a type
   63 | end;
      | ^~~
foo.cc:65:1: error: 'end' does not name a type
   65 | end.
      | ^~~

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