procedure example 5

SET serveroutput ON;
DECLARE
no1 NUMBER;
PROCEDURE prc_sum(no1 IN OUT NUMBER)
IS
BEGIN
    no1:=no1*no1;
END prc_sum;
BEGIN
    no1:=&no1;
    prc_sum(no1);
    DBMS_OUTPUT.put_line('Square of number is '||no1);
END;
/