MODULE bsp2;

   FROM InOut IMPORT WriteLn, ReadInt, WriteInt;

   CONST
      dim = 3;

   VAR
      matrix: ARRAY [1..dim],[1..dim] OF INTEGER;
      i, j: INTEGER;

BEGIN
   (* Lese Matrix ein *)
   FOR i := 1 TO dim DO
      FOR j := 1 TO dim DO
         ReadInt(matrix[i, j]);
      END;
   END;

   (* Gebe Matrix aus *)
   FOR i := 1 TO dim DO
      FOR j := 1 TO dim DO
         WriteInt(matrix[i, j], 5);
      END;
      WriteLn;
   END;
END bsp2.