Untitled

SET SERVEROUTPUT ON;

CREATE OR REPLACE PACKAGE CIRCLE AS
    PROCEDURE AREACIRCLE(RADIUS IN NUMBER, AREA OUT NUMBER);
END CIRCLE;
/
CREATE OR REPLACE PACKAGE BODY CIRCLE AS
    PROCEDURE AREACIRCLE(RADIUS IN NUMBER, AREA OUT NUMBER) IS
    BEGIN
        AREA := (3.14 * RADIUS * RADIUS);  
    END AREACIRCLE;    
END CIRCLE;
/

DECLARE
    RADIUS NUMBER(4,2) := &RADIUS;  
    AREA NUMBER(8,2);
BEGIN
    CIRCLE.AREACIRCLE(RADIUS, AREA);  
    dbms_output.put_line('Area of Circle: ' || AREA);  
END;
/