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.