CREATE OR REPLACE Procedure cs(num IN NUMBER,result OUT NUMBER) IS
BEGIN
    result := num * num;
END cs;
/
DECLARE
    input_number NUMBER := 5;
    output_result NUMBER;
BEGIN
    cs(input_number, output_result);
    DBMS_OUTPUT.PUT_LINE('Square of ' || input_number || ': ' || output_result);
END;
/