CREATE OR REPLACE PACKAGE pod_pkg IS
  
  FUNCTION jaka_stawka( n_roczny_dochod NUMBER) 
  										RETURN NUMBER;
  										
  PROCEDURE wylicz_podatek( n_roczny_dochod NUMBER) ;
  
END pod_pkg ;
/



CREATE OR REPLACE  PACKAGE BODY pod_pkg IS
  
  
  FUNCTION jaka_stawka( n_roczny_dochod NUMBER) 
  										RETURN NUMBER IS
  BEGIN
  	
  	IF n_roczny_dochod BETWEEN 0 AND 30000 THEN
  		
  		 RETURN 1;
  	  
  	ELSIF n_roczny_dochod > 30000 THEN	 
  		
  		RETURN 2;
  		
  	END IF;
  	
  	RETURN null;
  	
  END;											
 

 
  										
  PROCEDURE wylicz_podatek( n_roczny_dochod NUMBER) IS
    p1 number;
    p2 number := 0;
  BEGIN
 
     IF jaka_stawka( n_roczny_dochod  ) = 1 THEN
       
       p1 := 0.1 * n_roczny_dochod;
        
       dbms_output.put_line( 'prog 1:' || p1 );
     
     ELSIF jaka_stawka( n_roczny_dochod  ) = 2 THEN
     
     	 dbms_output.put_line( 'prog 1:' || 0.1 * 30000 );
     	 
     	 p1 := 3000;
     	 
     	 p2 := (0.3 * (n_roczny_dochod- 30000));
     	 
     	 dbms_output.put_line( 'prog 2:' || p2 );
     	      	 
     END IF;	
     
     dbms_output.put_line( '-------------' );	
     
     dbms_output.put_line( 'łącznie ' 
     											|| (p1 + p2) 
     											|| ' z kwoty ' 
     											|| n_roczny_dochod );
     	
  	
  END;	
 
 
 
  
END;
/