Bonus

-- accept x number prompt 'Please enter the salary: ';
DECLARE
    salary NUMBER;
    gender CHAR;
    bonus_percent NUMBER;
    FUNCTION sal(a IN NUMBER)
        RETURN NUMBER
        IS
        BEGIN
            IF(a < 10000)
            THEN
                RETURN 0;
            ELSE
                RETURN 2;
            END IF;
        END;

BEGIN
    salary :=: salary;
    gender :=: gender;
    IF(gender == 'M' || gender == 'm')
    THEN
        bonus_percent := bonus_percent + 5;
    ELSE
        bonus_percent := bonus_percent + 10;
    END IF;
END;