program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n,i,j,k:Integer;
  Matrix:array of array of array of Integer;
begin
   Writeln('ENTER');
   Readln(n);
   SetLength(Matrix, n,n, n);
   for i :=0 to n-1 do
     for j:=0 to n-1 do
        for k:=0 to n-1 do
        Readln(Matrix[i,j,k]);
     Writeln('ENTER');
     for i :=0 to n-1 do
     begin
       Writeln;
     for j:=0 to n-1 do
     begin
        for k:=0 to n-1 do
           write(Matrix[i,j,k] :3);
           Writeln;
     end;
        If (i mod n = 0) then
           writeln
     end;
     { for k:=0 to n-1 do
      begin
         WriteLn('Ïîñëåäîâàòåëüíîñòü ïîñëå ', i, '-ãî ïðîõîæäåíèÿ  ');
         if Sequence[i - 1] > Sequence[i] then
         begin
            TempSort := Sequence[i];
            LeftBorder := 0;
            RightBorder := i - 1;
            repeat
               MidOfSequence := (LeftBorder + RightBorder) div 2;
               if Sequence[MidOfSequence] < TempSort then
                  LeftBorder := MidOfSequence + 1
               else
                  RightBorder := MidOfSequence - 1;
            until LeftBorder > RightBorder;
            for j := (i - 1) downto LeftBorder do
               Sequence[j + 1] := Sequence[j];
            Sequence[LeftBorder] := TempSort;
         end;
         OutputSequence(Sequence, n - 1);
      end;
      GetSortSequence := Sequence;}

   Readln;
end.