RosettaCodeData/Task/Binary-digits/Simula/binary-digits.simula

BEGIN

    PROCEDURE OUTINTBIN(N); INTEGER N;
    BEGIN
        IF N > 1 THEN OUTINTBIN(N//2);
        OUTINT(MOD(N,2),1);
    END OUTINTBIN;

    INTEGER SAMPLE;
    FOR SAMPLE := 5, 50, 9000 DO BEGIN
        OUTINTBIN(SAMPLE);
        OUTIMAGE;
    END;

END