MODULE prog; IMPORT In, Out; CONST MAXN = 2050; VAR N, M, X : INTEGER; i, j, p, q, startI, startJ: INTEGER; A, B : ARRAY MAXN OF ARRAY MAXN OF INTEGER; BEGIN In.Int(N); In.Int(M); In.Int(X); FOR i := 1 TO N DO FOR j := 1 TO M DO In.Int(A[i][j]) END; END; FOR i := 1 TO N DO FOR j := 1 TO M DO startI := (i - 1) * X + 1; startJ := (j - 1) * X + 1; FOR p := 0 TO (X - 1) DO FOR q := 0 TO (X - 1) DO B[startI + p][startJ + q] := A[i][j] END; END; END; END; FOR i := 1 TO (X * N) DO FOR j := 1 TO (X * M) DO Out.Int(B[i][j], 0); Out.Char(' '); END; Out.Ln; END; Out.Ln END prog.