1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:

/*関数にしてみました*/
FUNCTION DtoB(i_jyu INTEGER) RETURN VARCHAR2 IS
    /*変数宣言*/
    nisin VARCHAR2(16);
    JYU   INTEGER;
BEGIN
    /*入力（受け取った引数を代入）*/
    jyu = i_jyu;
    
    /*変換*/
    FOR i IN 1..16 LOOP
        nisin := '' || MOD(jyu, 2) || nisin;
        jyu   := FLOOR(jyu / 2);
    END LOOP;
    
    /*出力（結果を戻り値として返す）*/
    RETURN nisin;
END DtoB;