/in/foo.cc:1:16: error: too many decimal points in number
 type tt=array [0..105] of longint;
                ^~~~~~
/in/foo.cc:63:35: warning: multi-character character constant [-Wmultichar]
 if (m>n-2) or (m<=0) then writeln('NO!')
                                   ^~~~~
/in/foo.cc:1:1: error: 'type' does not name a type
 type tt=array [0..105] of longint;
 ^~~~
/in/foo.cc:2:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:4:1: error: 'l1' does not name a type
 l1,l2,l3,l4,l5,l6,n,m:longint;
 ^~
/in/foo.cc:5:1: error: 'procedure' does not name a type
 procedure cch(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
 ^~~~~~~~~
/in/foo.cc:5:23: error: 'var' does not name a type
 procedure cch(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                       ^~~
/in/foo.cc:5:33: error: 'l1' does not name a type
 procedure cch(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                                 ^~
/in/foo.cc:5:48: error: 'var' does not name a type
 procedure cch(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                                                ^~~
/in/foo.cc:6:1: error: 'var' does not name a type
 var i,j,x:longint;
 ^~~
/in/foo.cc:7:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:9:1: error: expected unqualified-id before 'for'
 for i:=1 to l1 do
 ^~~
/in/foo.cc:12:1: error: expected unqualified-id before 'for'
 for j:=1 to l2 do
 ^~~
/in/foo.cc:15:1: error: 'c' does not name a type
 c[i+j-1]:=x mod 10;
 ^
/in/foo.cc:16:1: error: 'x' does not name a type
 x:=x div 10;
 ^
/in/foo.cc:17:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:18:1: error: 'c' does not name a type
 c[i+l2]:=x;
 ^
/in/foo.cc:19:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:20:1: error: expected unqualified-id before 'if'
 if (c[l1+l2]<>0) then l3:=l1+l2 else l3:=l1+l2-1;
 ^~
/in/foo.cc:21:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:22:1: error: 'procedure' does not name a type
 procedure xx(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
 ^~~~~~~~~
/in/foo.cc:22:22: error: 'var' does not name a type
 procedure xx(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                      ^~~
/in/foo.cc:22:32: error: 'l1' does not name a type
 procedure xx(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                                ^~
/in/foo.cc:22:47: error: 'var' does not name a type
 procedure xx(a,b:tt; var c:tt; l1,l2:longint; var l3:longint);
                                               ^~~
/in/foo.cc:23:1: error: 'var' does not name a type
 var i:longint;
 ^~~
/in/foo.cc:24:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:26:1: error: expected unqualified-id before 'for'
 for i:=1 to l1 do c[i]:=a[i]-b[i];
 ^~~
/in/foo.cc:27:1: error: expected unqualified-id before 'for'
 for i:=1 to l1-1 do
 ^~~
/in/foo.cc:28:40: error: expected constructor, destructor, or type conversion before '(' token
 if (c[i]<0) then begin dec(c[i+1]); inc(c[i],10); end;
                                        ^
/in/foo.cc:28:51: error: 'end' does not name a type
 if (c[i]<0) then begin dec(c[i+1]); inc(c[i],10); end;
                                                   ^~~
/in/foo.cc:29:1: error: 'l3' does not name a type
 l3:=l1;
 ^~
/in/foo.cc:30:1: error: expected unqualified-id before 'while'
 while (c[l3]=0) and (l3>1) do dec(l3);
 ^~~~~
/in/foo.cc:31:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:32:1: error: 'procedure' does not name a type
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
 ^~~~~~~~~
/in/foo.cc:32:20: error: 'var' does not name a type
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                    ^~~
/in/foo.cc:32:32: error: found ':' in nested-name-specifier, expected '::'
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                                ^
/in/foo.cc:32:30: error: 'l1' does not name a type
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                              ^~
/in/foo.cc:32:42: error: 'var' does not name a type
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                                          ^~~
/in/foo.cc:32:59: error: found ':' in nested-name-specifier, expected '::'
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                                                           ^
/in/foo.cc:32:58: error: 't' does not name a type
 procedure jy(a:tt; var b:tt; l1:longint; var l2:longint; t:longint);
                                                          ^
/in/foo.cc:33:1: error: 'var' does not name a type
 var i,x:longint;
 ^~~
/in/foo.cc:34:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:36:1: error: 'x' does not name a type
 x:=0;
 ^
/in/foo.cc:37:1: error: expected unqualified-id before 'for'
 for i:=l1 downto 1 do
 ^~~
/in/foo.cc:40:1: error: 'b' does not name a type
 b[i]:=x div t;
 ^
/in/foo.cc:41:1: error: 'x' does not name a type
 x:=x mod t;
 ^
/in/foo.cc:42:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:43:1: error: 'l2' does not name a type
 l2:=l1;
 ^~
/in/foo.cc:44:1: error: expected unqualified-id before 'while'
 while (b[l2]=0) and (l2>1) do dec(l2);
 ^~~~~
/in/foo.cc:45:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:46:1: error: 'procedure' does not name a type
 procedure fj(var a:tt; var l:longint; x:longint);
 ^~~~~~~~~
/in/foo.cc:46:24: error: 'var' does not name a type
 procedure fj(var a:tt; var l:longint; x:longint);
                        ^~~
/in/foo.cc:46:40: error: found ':' in nested-name-specifier, expected '::'
 procedure fj(var a:tt; var l:longint; x:longint);
                                        ^
/in/foo.cc:46:39: error: 'x' does not name a type
 procedure fj(var a:tt; var l:longint; x:longint);
                                       ^
/in/foo.cc:47:1: error: 'var' does not name a type
 var i:longint;
 ^~~
/in/foo.cc:48:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:50:1: error: 'i' does not name a type
 i:=0;
 ^
/in/foo.cc:51:1: error: expected unqualified-id before 'while'
 while (x<>0) do
 ^~~~~
/in/foo.cc:52:15: error: 'a' does not name a type
 begin inc(i); a[i]:=x mod 10; x:=x div 10; end;
               ^
/in/foo.cc:52:31: error: 'x' does not name a type
 begin inc(i); a[i]:=x mod 10; x:=x div 10; end;
                               ^
/in/foo.cc:52:44: error: 'end' does not name a type
 begin inc(i); a[i]:=x mod 10; x:=x div 10; end;
                                            ^~~
/in/foo.cc:53:1: error: 'l' does not name a type
 l:=i;
 ^
/in/foo.cc:54:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:55:1: error: 'procedure' does not name a type
 procedure jzq(a:tt; l:longint);
 ^~~~~~~~~
/in/foo.cc:55:22: error: found ':' in nested-name-specifier, expected '::'
 procedure jzq(a:tt; l:longint);
                      ^
/in/foo.cc:55:21: error: 'l' does not name a type
 procedure jzq(a:tt; l:longint);
                     ^
/in/foo.cc:56:1: error: 'var' does not name a type
 var i:longint;
 ^~~
/in/foo.cc:57:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:59:1: error: 'writeln' does not name a type
 writeln;
 ^~~~~~~
/in/foo.cc:60:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:61:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:62:12: error: 'g' does not name a type
 read(n,m); g[1]:=6;
            ^
/in/foo.cc:63:1: error: expected unqualified-id before 'if'
 if (m>n-2) or (m<=0) then writeln('NO!')
 ^~
/in/foo.cc:66:4: error: expected constructor, destructor, or type conversion before '(' token
 cch(a,a,b,l1,l1,l2); cch(a,b,c,l1,l2,l3);
    ^
/in/foo.cc:66:25: error: expected constructor, destructor, or type conversion before '(' token
 cch(a,a,b,l1,l1,l2); cch(a,b,c,l1,l2,l3);
                         ^
/in/foo.cc:67:3: error: expected constructor, destructor, or type conversion before '(' token
 xx(c,a,d,l3,l1,l4); jy(d,e,l4,l5,6); jzq(e,l5);
   ^
/in/foo.cc:67:23: error: expected constructor, destructor, or type conversion before '(' token
 xx(c,a