RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Simula/create-a-two-dimensional-array-at-runtime.simula

BEGIN
    INTEGER N,M;
    M := ININT;
    N := ININT;
    BEGIN
        INTEGER ARRAY A(1:M,1:N);
        A(M,N) := 99;
        OUTINT(A(M,N),0);
        OUTIMAGE;
    END;
    ! ARRAY A OUT OF SCOPE ;
END.