12 lines
208 B
Text
12 lines
208 B
Text
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.
|