nomor4

SET ECHO OFF
SET VERIFY OFF
SET SERVEROUTPUT ON

VARIABLE g_gaji NUMBER
ACCEPT p_gaji PROMPT 'Masukkan Gaji Tahunan : '
ACCEPT p_pajak PROMPT 'Masukkan Pajak : '

DECLARE
    v_gaji NUMBER := &p_gaji;
    v_pajak NUMBER := &p_pajak;
BEGIN
    :g_gaji := NVL(v_gaji,0)*(1-v_pajak/100);
END;
/
PRINT g_gaji