BEGIN

  PROCEDURE STATIC;
  BEGIN
    INTEGER ARRAY X(0:4);

    X(0) := 10;
    X(1) := 11;
    X(2) := 12;
    X(3) := 13;
    X(4) := X(0);

    OUTTEXT("STATIC AT 4: ");
    OUTINT(X(4), 0);
    OUTIMAGE
  END STATIC;

  PROCEDURE DYNAMIC(N); INTEGER N;
  BEGIN
    INTEGER ARRAY X(0:N-1);

    X(0) := 10;
    X(1) := 11;
    X(2) := 12;
    X(3) := 13;
    X(4) := X(0);

    OUTTEXT("DYNAMIC AT 4: ");
    OUTINT(X(4),0);
    OUTIMAGE
  END DYNAMIC;

  STATIC;
  DYNAMIC(5)
END ARRAYS.