foo.cc:1:1: error: 'unit' does not name a type
    1 | unit NUMBER;
      | ^~~~
foo.cc:4:1: error: 'interface' does not name a type
    4 | interface
      | ^~~~~~~~~
foo.cc:7:7: error: '_maxbyte' does not name a type
    7 | const _maxbyte=256;
      |       ^~~~~~~~
foo.cc:8:1: error: 'type' does not name a type
    8 | type _num=record
      | ^~~~
foo.cc:10:5: error: found ':' in nested-name-specifier, expected '::'
   10 | _den:arr;
      |     ^
      |     ::
foo.cc:10:1: error: '_den' does not name a type
   10 | _den:arr;
      | ^~~~
foo.cc:11:6: error: found ':' in nested-name-specifier, expected '::'
   11 | _flag:boolean;
      |      ^
      |      ::
foo.cc:11:1: error: '_flag' does not name a type
   11 | _flag:boolean;
      | ^~~~~
foo.cc:12:1: error: 'end' does not name a type
   12 | end;
      | ^~~
foo.cc:13:1: error: 'var' does not name a type
   13 | var _r,_z,_i:longint;
      | ^~~
foo.cc:14:1: error: '_a' does not name a type
   14 | _a,_b:byte;
      | ^~
foo.cc:15:4: error: found ':' in nested-name-specifier, expected '::'
   15 | rdc:boolean; //自动约分开关
      |    ^
      |    ::
foo.cc:15:1: error: 'rdc' does not name a type
   15 | rdc:boolean; //自动约分开关
      | ^~~
foo.cc:17:1: error: 'type' does not name a type
   17 | type num=_num;
      | ^~~~
foo.cc:19:1: error: expected unqualified-id before '{' token
   19 | {
      | ^
foo.cc:24:1: error: 'function' does not name a type; did you mean 'union'?
   24 | function getfac(a:_num):int64;
      | ^~~~~~~~
      | union
foo.cc:25:1: error: 'function' does not name a type; did you mean 'union'?
   25 | function getden(a:_num):int64;
      | ^~~~~~~~
      | union
foo.cc:26:1: error: expected unqualified-id before '{' token
   26 | {
      | ^
foo.cc:29:10: error: expected type-specifier before ':' token
   29 | operator :=(a:_num)e:extended;
      |          ^
foo.cc:30:10: error: expected type-specifier before ':' token
   30 | operator :=(a:_num)r:real;
      |          ^
foo.cc:31:10: error: expected type-specifier before ':' token
   31 | operator :=(a:_num)i:int64;
      |          ^
foo.cc:32:1: error: expected unqualified-id before '{' token
   32 | {
      | ^
foo.cc:36:10: error: expected type-specifier before ':' token
   36 | operator :=(i:int64)a:_num;
      |          ^
foo.cc:37:1: error: 'procedure' does not name a type
   37 | procedure reduce(a:_num); //约分
      | ^~~~~~~~~
foo.cc:38:10: error: expected type-specifier before 'div'
   38 | operator div(a,b:_num)c:int64;
      |          ^~~
foo.cc:39:10: error: expected type-specifier before 'mod'
   39 | operator mod(a,b:_num)c:_num;
      |          ^~~
foo.cc:40:1: error: 'function' does not name a type; did you mean 'union'?
   40 | function front(a:_num):int64; //获取整数部分
      | ^~~~~~~~
      | union
foo.cc:41:1: error: 'function' does not name a type; did you mean 'union'?
   41 | function proper(a:_num):_num; //获取真分数部分
      | ^~~~~~~~
      | union
foo.cc:42:11: error: expected constructor, destructor, or type conversion before '(' token
   42 | operator +(a,b:_num)c:_num;
      |           ^
foo.cc:43:11: error: expected constructor, destructor, or type conversion before '(' token
   43 | operator -(a,b:_num)c:_num;
      |           ^
foo.cc:44:11: error: expected constructor, destructor, or type conversion before '(' token
   44 | operator *(a,b:_num)c:_num;
      |           ^
foo.cc:45:11: error: expected constructor, destructor, or type conversion before '(' token
   45 | operator /(a,b:_num)c:_num;
      |           ^
foo.cc:46:11: error: expected constructor, destructor, or type conversion before '(' token
   46 | operator >(a,b:_num)d:boolean;
      |           ^
foo.cc:47:11: error: expected constructor, destructor, or type conversion before '(' token
   47 | operator <(a,b:_num)d:boolean;
      |           ^
foo.cc:48:12: error: expected constructor, destructor, or type conversion before '(' token
   48 | operator >=(a,b:_num)d:boolean;
      |            ^
foo.cc:49:12: error: expected constructor, destructor, or type conversion before '(' token
   49 | operator <=(a,b:_num)d:boolean;
      |            ^
foo.cc:50:11: error: expected constructor, destructor, or type conversion before '(' token
   50 | operator =(a,b:_num)d:boolean;
      |           ^
foo.cc:51:1: error: 'function' does not name a type; did you mean 'union'?
   51 | function _get(a:arr):int64; //动态byte数组转整型
      | ^~~~~~~~
      | union
foo.cc:52:1: error: 'procedure' does not name a type
   52 | procedure _rdc(a,b:arr); //约分
      | ^~~~~~~~~
foo.cc:53:1: error: 'function' does not name a type; did you mean 'union'?
   53 | function _gcd(a,b:arr):arr; //获取最大公约数
      | ^~~~~~~~
      | union
foo.cc:54:1: error: 'function' does not name a type; did you mean 'union'?
   54 | function _lcm(a,b:arr):arr; //获取最小公倍数
      | ^~~~~~~~
      | union
foo.cc:55:1: error: 'function' does not name a type; did you mean 'union'?
   55 | function _add(a,b:arr):arr; //获取两数的和
      | ^~~~~~~~
      | union
foo.cc:56:1: error: 'function' does not name a type; did you mean 'union'?
   56 | function _sub(a,b:arr):arr; //获取两数的差
      | ^~~~~~~~
      | union
foo.cc:57:1: error: 'function' does not name a type; did you mean 'union'?
   57 | function _mul(a,b:arr):arr; //获取两数的积
      | ^~~~~~~~
      | union
foo.cc:58:1: error: 'function' does not name a type; did you mean 'union'?
   58 | function _div(a,b:arr):arr; //获取两数的商
      | ^~~~~~~~
      | union
foo.cc:59:1: error: 'function' does not name a type; did you mean 'union'?
   59 | function _mod(a,b:arr):arr; //获取两数的模
      | ^~~~~~~~
      | union
foo.cc:60:1: error: 'procedure' does not name a type
   60 | procedure _shl(a:arr); //乘2
      | ^~~~~~~~~
foo.cc:61:1: error: 'procedure' does not name a type
   61 | procedure _shr(a:arr); //除2
      | ^~~~~~~~~
foo.cc:62:1: error: 'function' does not name a type; did you mean 'union'?
   62 | function _cmp(a,b:arr):shortint; //比较两数大小
      | ^~~~~~~~
      | union
foo.cc:63:1: error: 'function' does not name a type; did you mean 'union'?
   63 | function _max(a,b:longint):longint; //获取最大值
      | ^~~~~~~~
      | union
foo.cc:64:1: error: 'function' does not name a type; did you mean 'union'?
   64 | function _min(a,b:longint):longint; //获取最小值
      | ^~~~~~~~
      | union
foo.cc:65:1: error: 'procedure' does not name a type
   65 | procedure _cut(a:arr); //删除数组多余部分
      | ^~~~~~~~~
foo.cc:67:1: error: 'implementation' does not name a type
   67 | implementation
      | ^~~~~~~~~~~~~~
foo.cc:70:1: error: 'begin' does not name a type
   70 | begin
      | ^~~~~
foo.cc:72:1: error: expected unqualified-id before 'for'
   72 | for _i:=alen(a._fac) downto 1 do
      | ^~~
foo.cc:74:1: error: expected unqualified-id before 'if'
   74 | if a._flag then getfac:=-getfac;
      | ^~
foo.cc:75:1: error: 'end' does not name a type
   75 | end;
      | ^~~
foo.cc:77:1: error: 'function' does not name a type; did you mean 'union'?
   77 | function getden(a:num):int64;
      | ^~~~~~~~
      | union
foo.cc:78:1: error: 'begin' does not name a type
   78 | begin
      | ^~~~~
foo.cc:80:1: error: expected unqualified-id before 'for'
   80 | for _i:=alen(a._den) downto 1 do
      | ^~~
foo.cc:82:1: error: 'end' does not name a type
   82 | end;
      | ^~~
foo.cc:84:10: error: expected type-specifier before ':' token
   84 | operator :=(a:_num)e:extended;
      |          ^
foo.cc:85:1: error: 'var' does not name a type
   85 | var fac,den:extended;
      | ^~~
foo.cc:86:1: error: 'begin' does not name a type
   86 | begin
      | ^~~~~
foo.cc:88:1: error: 'den' does not name a type
   88 | den:=0;
      | ^~~
foo.cc:89:1: error: expected unqualified-id before 'for'
   89 | for _i:=alen(a._fac) downto 1 do
      | ^~~
foo.cc:91:1: error: expected unqualified-id before 'for'
   91 | for _i:=alen(a._den) downto 1 do
      | ^~~
foo.cc:93:1: error: 'e' does not name a type
   93 | e:=fac/den;
      | ^
foo.cc:94:1: error: expected unqualified-id before 'if'
   94 | if a._flag then e:=-e;
      | ^~
foo.cc:95:1: error: 'end' does not name a type
   95 | end;
      | ^~~
foo.cc:97:10: error: expected type-specifier before ':' token
   97 | operator :=(a:_num)r:real;
      |          ^
foo.cc:98:1: error: 'var' does not name a type
   98 | var e:extended;
      | ^~~
foo.cc:99:1: error: 'begin' does not name a type
   99 | begin
      | ^~~~~
foo.cc:101:1: error: 'r' does not name a type
  101 | r:=e;
      | ^
foo.cc:102:1: error: 'end' does not name a type
  102 | end;
      | ^~~
foo.cc:104:10: error: expected type-specifier before ':' token
  104 | operator :=(a:_num)i:int64;
      |          ^
foo.cc:105:1: error: 'var' does not name a type
  105 | var e:extended;
      | ^~~
foo.cc:106:1: error: 'begin' does not name a type
  106 | begin
      | ^~~~~
foo.cc:108:1: error: 'i' does not name a type
  108 | i:=round(e);
      | ^
foo.cc:109:1: error: 'end' does not name a type
  109 | end;
      | ^~~
foo.cc:110:1: error: expected unqualified-id before '{' token
  110 | {
      | ^
foo.cc:121:10: error: expected type-specifier before ':' token
  121 | operator :=(i:int64)a:num;
      |          ^
foo.cc:122:1: error: 'begin' does not name a type
  122 | begin
      | ^~~~~
foo.cc:124:1: error: expected unqualified-id before 'if'
  124 | if i<0 then
      | ^~
foo.cc:127:1: error: 'i' does not name a type
  127 | i:=-i;
      | ^
foo.cc:128:1: error: 'end' does not name a type
  128 | end;
      | ^~~
foo.cc:129:1: error: 'a' does not name a type
  129 | a._fac:=acrea(4);
      | ^
foo.cc:130:1: error: expected unqualified-id before 'for'
  130 | for _i:=1 to 3 do
      | ^~~
foo.cc:133:1: error: 'i' does not name a type
  133 | i:=i div _maxbyte;
      | ^
foo.cc:134:1: error: 'end' does not name a type
  134 | end;
      | ^~~
foo.cc:135:5: error: expected constructor, destructor, or type conversion before '(' token
  135 | aset(a._fac,4,i);
      |     ^
foo.cc:136:1: error: 'a' does not name a type
  136 | a._den:=acrea(1);
      | ^
foo.cc:137:5: error: expected constructor, destructor, or type conversion before '(' token
  137 | aset(a._den,1,1);
      |     ^
foo.cc:138:1: error: 'end' does not name a type
  138 | end;
      | ^~~
foo.cc:140:1: error: 'procedure' does not name a type
  140 | procedure reduce(a:_num);
      | ^~~~~~~~~
foo.cc:141:1: error: 'begin' does not name a type
  141 | begin
      | ^~~~~
foo.cc:143:1: error: 'end' does not name a type
  143 | end;
      | ^~~
foo.cc:145:10: error: expected type-specifier before 'div'
  145 | operator div(a,b:_num)c:int64;
      |          ^~~
foo.cc:146:1: error: 'var' does not name a type
  146 | var _c:_num;
      | ^~~
foo.cc:147:1: error: 'begin' does not name a type
  147 | begin
      | ^~~~~
foo.cc:149:1: error: 'c' does not name a type
  149 | c:=front(_c);
      | ^
foo.cc:150:6: error: expected constructor, destructor, or type conversion before '(' token
  150 | adela(_c._fac);
      |      ^
foo.cc:151:6: error: expected constructor, destructor, or type conversion before '(' token
  151 | adela(_c._den);
      |      ^
foo.cc:152:1: error: 'end' does not name a type
  152 | end;
      | ^~~
foo.cc:154:10: error: expected type-specifier before 'mod'
  154 | operator mod(a,b:_num)c:_num;
      |          ^~~
foo.cc:155:1: error: 'var' does not name a type
  155 | var _c:_num;
      | ^~~
foo.cc:156:1: error: 'begin' does not name a type
  156 | begin
      | ^~~~~
foo.cc:158:1: error: 'c' does not name a type
  158 | c:=proper(_c);
      | ^
foo.cc:159:6: error: expected constructor, destructor, or type conversion before '(' token
  159 | adela(_c._fac);
      |      ^
foo.cc:160:6: error: expected constructor, destructor, or type conversion before '(' token
  160 | adela(_c._den);
      |      ^
foo.cc:161:1: error: 'end' does not name a type
  161 | end;
      | ^~~

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