foo.cc:3:15: error: too many decimal points in number
    3 | type ar=array[0..maxn]of longint;
      |               ^~~~~~~
foo.cc:9:10: error: too many decimal points in number
    9 | ff:array[0..200]of longint;
      |          ^~~~~~
foo.cc:1:7: error: 'maxn' does not name a type
    1 | const maxn=50;
      |       ^~~~
foo.cc:3:1: error: 'type' does not name a type
    3 | type ar=array[0..maxn]of longint;
      | ^~~~
foo.cc:5:1: error: 'var' does not name a type
    5 | var i,j,k,l:longint;
      | ^~~
foo.cc:7:3: error: found ':' in nested-name-specifier, expected '::'
    7 | st:string;
      |   ^
      |   ::
foo.cc:7:1: error: 'st' does not name a type; did you mean 'std'?
    7 | st:string;
      | ^~
      | std
foo.cc:9:3: error: found ':' in nested-name-specifier, expected '::'
    9 | ff:array[0..200]of longint;
      |   ^
      |   ::
foo.cc:9:1: error: 'ff' does not name a type
    9 | ff:array[0..200]of longint;
      | ^~
foo.cc:11:1: error: 's' does not name a type
   11 | s,r:ar;
      | ^
foo.cc:13:1: error: 'function' does not name a type; did you mean 'union'?
   13 | function divi(a:ar;b:longint):ar;
      | ^~~~~~~~
      | union
foo.cc:13:21: error: found ':' in nested-name-specifier, expected '::'
   13 | function divi(a:ar;b:longint):ar;
      |                     ^
      |                     ::
foo.cc:13:20: error: 'b' does not name a type
   13 | function divi(a:ar;b:longint):ar;
      |                    ^
foo.cc:15:1: error: 'var' does not name a type
   15 | var i,k,sum:longint;
      | ^~~
foo.cc:17:1: error: 'begin' does not name a type
   17 | begin
      | ^~~~~
foo.cc:21:1: error: expected unqualified-id before 'for'
   21 | for i:=maxn downto 1 do if a[i]>0 then begin k:=i; break; end;
      | ^~~
foo.cc:21:52: error: expected unqualified-id before 'break'
   21 | for i:=maxn downto 1 do if a[i]>0 then begin k:=i; break; end;
      |                                                    ^~~~~
foo.cc:21:59: error: 'end' does not name a type
   21 | for i:=maxn downto 1 do if a[i]>0 then begin k:=i; break; end;
      |                                                           ^~~
foo.cc:23:1: error: 'sum' does not name a type
   23 | sum:=0;
      | ^~~
foo.cc:25:1: error: expected unqualified-id before 'for'
   25 | for i:=k downto 1 do begin
      | ^~~
foo.cc:29:1: error: expected unqualified-id before 'if'
   29 | if sum>=b then divi[i]:=sum div b;
      | ^~
foo.cc:31:1: error: 'sum' does not name a type
   31 | sum:=sum mod b;
      | ^~~
foo.cc:33:1: error: 'sum' does not name a type
   33 | sum:=sum*10;
      | ^~~
foo.cc:35:1: error: 'end' does not name a type
   35 | end;
      | ^~~
foo.cc:37:1: error: 'end' does not name a type
   37 | end;
      | ^~~
foo.cc:39:1: error: 'function' does not name a type; did you mean 'union'?
   39 | function fact(a:ar):boolean;
      | ^~~~~~~~
      | union
foo.cc:41:1: error: 'var' does not name a type
   41 | var i,j:longint;
      | ^~~
foo.cc:43:1: error: 'begin' does not name a type
   43 | begin
      | ^~~~~
foo.cc:47:1: error: expected unqualified-id before 'for'
   47 | for i:=2 to maxn do if a[i]>0 then fact:=true;
      | ^~~
foo.cc:49:1: error: 'end' does not name a type
   49 | end;
      | ^~~
foo.cc:51:1: error: 'function' does not name a type; did you mean 'union'?
   51 | function find(a:ar):longint;
      | ^~~~~~~~
      | union
foo.cc:53:1: error: 'var' does not name a type
   53 | var ll,u,fn:longint;
      | ^~~
foo.cc:55:1: error: 'begin' does not name a type
   55 | begin
      | ^~~~~
foo.cc:63:1: error: 'fn' does not name a type
   63 | fn:=ff[a[1]];
      | ^~
foo.cc:65:1: error: 'll' does not name a type
   65 | ll:=find(divi(a,5));
      | ^~
foo.cc:67:1: error: 'find' does not name a type
   67 | find:=ll*u*fn mod 10;
      | ^~~~
foo.cc:69:1: error: 'end' does not name a type
   69 | end;
      | ^~~
foo.cc:71:1: error: 'end' does not name a type
   71 | end;
      | ^~~
foo.cc:73:1: error: 'begin' does not name a type
   73 | begin
      | ^~~~~
foo.cc:77:1: error: 'l' does not name a type
   77 | l:=length(st);
      | ^
foo.cc:79:9: error: expected constructor, destructor, or type conversion before '(' token
   79 | fillchar(s,sizeof(s),0);
      |         ^
foo.cc:81:1: error: expected unqualified-id before 'for'
   81 | for i:=1 to l do s[i]:=ord(st[l+1-i])-48;
      | ^~~
foo.cc:83:9: error: expected constructor, destructor, or type conversion before '(' token
   83 | fillchar(r,sizeof(r),0);
      |         ^
foo.cc:85:1: error: 'ff' does not name a type
   85 | ff[0]:=1; ff[1]:=1; ff[2]:=2; ff[3]:=6; ff[4]:=4;
      | ^~
foo.cc:85:11: error: 'ff' does not name a type
   85 | ff[0]:=1; ff[1]:=1; ff[2]:=2; ff[3]:=6; ff[4]:=4;
      |           ^~
foo.cc:85:21: error: 'ff' does not name a type
   85 | ff[0]:=1; ff[1]:=1; ff[2]:=2; ff[3]:=6; ff[4]:=4;
      |                     ^~
foo.cc:85:31: error: 'ff' does not name a type
   85 | ff[0]:=1; ff[1]:=1; ff[2]:=2; ff[3]:=6; ff[4]:=4;
      |                               ^~
foo.cc:85:41: error: 'ff' does not name a type
   85 | ff[0]:=1; ff[1]:=1; ff[2]:=2; ff[3]:=6; ff[4]:=4;
      |                                         ^~
foo.cc:87:1: error: 'ff' does not name a type
   87 | ff[5]:=2;ff[6]:=2;ff[7]:=4;ff[8]:=2;ff[9]:=8;
      | ^~
foo.cc:87:10: error: 'ff' does not name a type
   87 | ff[5]:=2;ff[6]:=2;ff[7]:=4;ff[8]:=2;ff[9]:=8;
      |          ^~
foo.cc:87:19: error: 'ff' does not name a type
   87 | ff[5]:=2;ff[6]:=2;ff[7]:=4;ff[8]:=2;ff[9]:=8;
      |                   ^~
foo.cc:87:28: error: 'ff' does not name a type
   87 | ff[5]:=2;ff[6]:=2;ff[7]:=4;ff[8]:=2;ff[9]:=8;
      |                            ^~
foo.cc:87:37: error: 'ff' does not name a type
   87 | ff[5]:=2;ff[6]:=2;ff[7]:=4;ff[8]:=2;ff[9]:=8;
      |                                     ^~
foo.cc:89:8: error: expected constructor, destructor, or type conversion before '(' token
   89 | writeln(find(s));
      |        ^
foo.cc:91:1: error: 'end' does not name a type
   91 | end.
      | ^~~

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