program barras;
var codEmp : string[3];
 imp : string[4];
 a : string[8];
 i : integer;
const
     bin : array [0..9] of string = ('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001');

begin
 writeln('Ingrese el codigo de empresa.');
 readln(codEmp);
 writeln('Ingrese el importe.');
 readln(imp);
 a := Concat(codEmp,imp);
 a := Concat(a,chr((10 mod abs((Ord(a[1])-48) + (Ord(a[3])-48) + (Ord(a[5])-48) + (Ord(a[7])-48) - (Ord(a[2])-48) -(Ord(a[4])-48) - (Ord(a[6])-48)))+48));
 for i:= 1 to 8 do write(bin[Ord(a[i])-48]);
    readln(i);
end.