/in/foo.cc:1:1: error: 'procedure' does not name a type
 procedure plus(k:longint);
 ^~~~~~~~~
/in/foo.cc:3:1: error: 'var' does not name a type
 var i:longint;
 ^~~
/in/foo.cc:5:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:9:1: error: expected unqualified-id before 'for'
 for i:=1 to b[k,0]do
 ^~~
/in/foo.cc:15:1: error: 'b' does not name a type
 b[k,i+1]:=b[k,i+1]+b[k,i]div 10;
 ^
/in/foo.cc:17:1: error: 'b' does not name a type
 b[k,i]:=b[k,i]mod 10;
 ^
/in/foo.cc:19:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:21:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:23:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:25:11: error: 'l' does not name a type
 readln(s);l:=length(s);
           ^
/in/foo.cc:27:1: error: expected unqualified-id before 'for'
 for i:=1 to l div 2 do
 ^~~
/in/foo.cc:35:1: error: 'ss' does not name a type
 ss:=copy(s,1,i);
 ^~
/in/foo.cc:37:1: error: expected unqualified-id before 'for'
 for j:=1 to l div i-1 do
 ^~~
/in/foo.cc:39:41: error: expected unqualified-id before 'break'
 if sscopy(s,j*i+1,i)then begin f:=false;break;end;
                                         ^~~~~
/in/foo.cc:39:47: error: 'end' does not name a type
 if sscopy(s,j*i+1,i)then begin f:=false;break;end;
                                               ^~~
/in/foo.cc:41:1: error: expected unqualified-id before 'if'
 if f then break;
 ^~
/in/foo.cc:43:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:45:1: error: expected unqualified-id before 'if'
 if f then len:=i else len:=l;
 ^~
/in/foo.cc:47:1: error: expected unqualified-id before 'for'
 for i:=1 to len do a[i]:=ord(s[len-i+1])-ord('0');
 ^~~
/in/foo.cc:49:1: error: 'x' does not name a type
 x:=1;
 ^
/in/foo.cc:51:1: error: expected unqualified-id before 'if'
 if len=1 then
 ^~
/in/foo.cc:59:1: error: expected unqualified-id before 'while'
 while x mod 10=0do x:=x div 10;
 ^~~~~
/in/foo.cc:61:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(x mod 10);
        ^
/in/foo.cc:63:1: error: 'halt' does not name a type
 halt;
 ^~~~
/in/foo.cc:65:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:67:1: error: 'a' does not name a type
 a[0]:=len; for i:=2 to 9 do b:=1;
 ^
/in/foo.cc:67:12: error: expected unqualified-id before 'for'
 a[0]:=len; for i:=2 to 9 do b:=1;
            ^~~
/in/foo.cc:69:5: error: expected constructor, destructor, or type conversion before '(' token
 make(a,1);
     ^
/in/foo.cc:71:1: error: 'i' does not name a type
 i:=200;while bb[i]=0 do dec(i);bb[0]:=i;
 ^
/in/foo.cc:71:8: error: expected unqualified-id before 'while'
 i:=200;while bb[i]=0 do dec(i);bb[0]:=i;
        ^~~~~
/in/foo.cc:71:32: error: 'bb' does not name a type
 i:=200;while bb[i]=0 do dec(i);bb[0]:=i;
                                ^~
/in/foo.cc:75:1: error: expected unqualified-id before '{' token
 {for i:=2 to 9 do
 ^
/in/foo.cc:89:5: error: expected constructor, destructor, or type conversion before '(' token
 plus(2);plus(4);plus(8);
     ^
/in/foo.cc:89:13: error: expected constructor, destructor, or type conversion before '(' token
 plus(2);plus(4);plus(8);
             ^
/in/foo.cc:89:21: error: expected constructor, destructor, or type conversion before '(' token
 plus(2);plus(4);plus(8);
                     ^
/in/foo.cc:91:9: error: expected constructor, destructor, or type conversion before '(' token
 fillchar(bb,sizeof(bb),0);
         ^
/in/foo.cc:93:1: error: expected unqualified-id before 'for'
 for i:=2 to len do
 ^~~
/in/foo.cc:97:1: error: 'bb' does not name a type
 bb[0]:=len-1;
 ^~
/in/foo.cc:101:1: error: expected unqualified-id before 'for'
 for i:=2 to 4 do plus(i);for i:=7 to 9 do plus(i);
 ^~~
/in/foo.cc:101:26: error: expected unqualified-id before 'for'
 for i:=2 to 4 do plus(i);for i:=7 to 9 do plus(i);
                          ^~~
/in/foo.cc:103:1: error: 'x' does not name a type
 x:=a[1];////!!!!
 ^
/in/foo.cc:105:1: error: expected unqualified-id before '{' token
 {c:=n div 10;
 ^
/in/foo.cc:113:1: error: expected unqualified-id before 'for'
 for i:=2 to 9 do
 ^~~
/in/foo.cc:117:1: error: expected unqualified-id before 'for'
 for i:=1 to x do inc(b1[i]);
 ^~~
/in/foo.cc:119:1: error: expected unqualified-id before '{' token
 { for i:=2 to 9 do
 ^
/in/foo.cc:135:1: error: expected unqualified-id before 'for'
 for i:=2 to 9 do if b1[i]=0then b1[i]:=1;
 ^~~
/in/foo.cc:137:1: error: 'b1' does not name a type
 b1[2]:=b1[2]mod 4;b1[3]:=b1[3]mod 4;
 ^~
/in/foo.cc:137:19: error: 'b1' does not name a type
 b1[2]:=b1[2]mod 4;b1[3]:=b1[3]mod 4;
                   ^~
/in/foo.cc:139:1: error: 'b1' does not name a type
 b1[7]:=b1[7]mod 4;b1[8]:=b1[8]mod 4;
 ^~
/in/foo.cc:139:19: error: 'b1' does not name a type
 b1[7]:=b1[7]mod 4;b1[8]:=b1[8]mod 4;
                   ^~
/in/foo.cc:141:1: error: 'b1' does not name a type
 b1[4]:=b1[4]and 1;b1[9]:=b1[9]and 1;
 ^~
/in/foo.cc:141:19: error: 'b1' does not name a type
 b1[4]:=b1[4]and 1;b1[9]:=b1[9]and 1;
                   ^~
/in/foo.cc:145:1: error: 'ans' does not name a type
 ans:=a2[b1[2]]*a3[b1[3]]*a4[b1[4]]*6*a7[b1[7]]*a8[b1[8]]*a9[b1[9]];
 ^~~
/in/foo.cc:147:8: error: expected constructor, destructor, or type conversion before '(' token
 writeln(ans mod 10);
        ^
/in/foo.cc:149:1: error: 'end' does not name a type
 end.
 ^~~