/in/foo.cc:7:13: error: too many decimal points in number
 a,b,c:array[1..10000]of longint;
             ^~~~~~~~
/in/foo.cc:29:7: warning: multi-character character constant [-Wmultichar]
 write('0.');
       ^~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:5:1: error: 'l' does not name a type
 l,i,j,k,d1,d2,l1,l2,x,y:longint;
 ^
/in/foo.cc:7:1: error: 'a' does not name a type
 a,b,c:array[1..10000]of longint;
 ^
/in/foo.cc:9:1: error: 'procedure' does not name a type
 procedure print(i:longint);
 ^~~~~~~~~
/in/foo.cc:11:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:13:58: error: 'x' does not name a type
 if i='0')and(s1[i]='0')and(s2[i]0 do begin c[l]:=x mod k;x:=x div k;inc(l);end;dec(l);
                                                          ^
/in/foo.cc:13:72: error: expected constructor, destructor, or type conversion before '(' token
 if i='0')and(s1[i]='0')and(s2[i]0 do begin c[l]:=x mod k;x:=x div k;inc(l);end;dec(l);
                                                                        ^
/in/foo.cc:13:76: error: 'end' does not name a type
 if i='0')and(s1[i]='0')and(s2[i]0 do begin c[l]:=x mod k;x:=x div k;inc(l);end;dec(l);
                                                                            ^~~
/in/foo.cc:13:83: error: expected constructor, destructor, or type conversion before '(' token
 if i='0')and(s1[i]='0')and(s2[i]0 do begin c[l]:=x mod k;x:=x div k;inc(l);end;dec(l);
                                                                                   ^
/in/foo.cc:15:1: error: 'y' does not name a type
 y:=1;while c[y]=0do inc(y);dec(y);
 ^
/in/foo.cc:15:6: error: expected unqualified-id before 'while'
 y:=1;while c[y]=0do inc(y);dec(y);
      ^~~~~
/in/foo.cc:15:31: error: expected constructor, destructor, or type conversion before '(' token
 y:=1;while c[y]=0do inc(y);dec(y);
                               ^
/in/foo.cc:17:1: error: expected unqualified-id before 'if'
 if d1+d2=d1+d2)then
 ^~
/in/foo.cc:21:1: error: expected unqualified-id before 'if'
 if (y0 then print(c[i]);
 ^~
/in/foo.cc:23:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:25:1: error: 'end' does not name a type
 end
 ^~~
/in/foo.cc:31:1: error: expected unqualified-id before 'for'
 for i:=(d1+d2)downto l+1 do write(0);
 ^~~
/in/foo.cc:33:1: error: expected unqualified-id before 'for'
 for i:=l downto y do if i>0 then print(c[i]);
 ^~~
/in/foo.cc:35:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:37:1: error: 'end' does not name a type
 end.
 ^~~