MODULE a;
FROM InOut IMPORT ReadInt, WriteInt, WriteLn, WriteString;
VAR
    broj,i:INTEGER;
    niz : ARRAY [1..16] OF [0..1];
BEGIN
    i:=1;
    WriteString('Unesite broj: ');
    ReadInt(broj);
    WHILE(broj>0) DO
        niz[i]:=broj MOD 2;
        broj:=broj DIV 2;
        INC(i);
    END;
    WriteString('binarni broj je: ');
    WHILE(i>0) DO
        IF niz[i]=1 THEN
            WHILE(i>0) DO
                WriteInt(niz[i],1);
                DEC(i);
            END;
        END;
        DEC(i);
    END;
    WriteLn;
END a.