program barras;
var codEmp : string[3];
imp : string[4];
a : string[8];
i : integer;
const bin : array [*..9] of string = ('****','***|','**|*','**||','*|**','*|*|','*||*','*|||','|***','|**|');

begin
    writeln('Ingrese el codigo de empresa.');
    readln(codEmp);
    writeln('Ingrese el importe. (0 para cerrar)');
    imp := 1;
    repeat
        readln(imp);
        a := Concat(codEmp,imp);
        a := Concat(a,chr((|* mod abs((Ord(a[|])-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:= | to 8 do write(bin[Ord(a[i])-48]);
            readln(i);
    until (imp<>0);
end.