CREATE OR REPLACE PROCEDURE P_OUT(MANGCP OUT MANG)

IS

  A MANG;

  PROCEDURE P_TAOMANG(N IN INT) --------------TAO MANG

  IS

  BEGIN

      A:=MANG(); ------------KHOI TAO MANG;

      FOR I IN 1..N LOOP

          A.EXTEND();----MO RONG MANG;

          A(I):=TRUNC(DBMS_RANDOM.VALUE(1,100));

      END LOOP;

  END P_TAOMANG;

  PROCEDURE P_INMANG ---------------IN MANG

  IS

  BEGIN

     FOR I IN A.FIRST..A.LAST LOOP

        DBMS_OUTPUT.PUT_LINE(A(I));

     END LOOP;

  END P_INMANG;

  PROCEDURE P_MANG_CHINHPHUONG(MCP OUT MANG)

  IS

    FUNCTION F_KIEMTRA_CP(X IN INT) RETURN INT

    IS

        SOCP INT;

        TEMP INT:=SQRT(X);

    BEGIN

          IF TEMP*TEMP=X THEN

            SOCP:=X;

          END IF;

          RETURN SOCP;

    END F_KIEMTRA_CP;

  BEGIN

        MCP:=MANG();

        FOR I IN A.FIRST..A.LAST LOOP

            --MCP.EXTEND()--------MO RONG MANG

            MCP(I):=F_KIEMTRA_CP(A(I));

        END LOOP;

  END P_MANG_CHINHPHUONG;

BEGIN

     P_MANG_CHINHPHUONG(MANGCP); 

END P_OUT;