procedura1

DECLARE
   a NUMBER;
PROCEDURE squareNum(x IN OUT NUMBER) IS
BEGIN
  x := x * x;
END;
BEGIN
   a:= 23;
   squareNum(a);
   DBMS_OUTPUT.put_line(' Square of (23): ' || a);
END;
/