PROGRAM MATIZ_TRID;
USES
CRT;
CONST
LIM_F=2;
LIM_C=2;
LIM_P=2;
TYPE
MI_M=ARRAY[1..LIM_F,1..LIM_C,1..LIM_P] OF INTEGER;
VAR
M:MI_M;
F,C,P:INTEGER;
PROCEDURE PEDIR;
BEGIN
FOR P:=1 TO LIM_P DO
BEGIN
FOR F:=1 TO LIM_F DO
BEGIN
FOR C:=1 TO LIM_C DO
BEGIN
WRITELN('DIGITE UN NUMERO');
READLN(M[F,C,P]);
END;
END;
END;
END;
PROCEDURE IMPRIMIR;
BEGIN
FOR P:=1 TO LIM_P DO
BEGIN
FOR F:=1 to LIM_F DO
BEGIN
FOR C:=1 TO LIM_C DO
BEGIN
WRITE(M[P,F,C]:3);
END;
WRITELN;
END;
WRITELN;
WRITELN;
END;
END;
BEGIN
CLRSCR;
PEDIR;
IMPRIMIR;
READKEY;
END.