program chislo;
type 
   matrix= array [1..4, 1..4] of integer; 
var 
   c: matrix; 
   a, b, i: integer; { индексы массива } 
begin
   for a:=1 to 4 do {цикл для перебора всех строк} 
      for b :=1 to 4 do {перебор всех элементов строки по столбцам} 
         read ( c [ a , b ]); {ввод с клавиатуры элемента, стоящего в a -й строке и b -м столбце}
a:=1;
b:=1;
For i:=1 to 4 do
  begin
    while  b>5 do
      begin
        write (c[a,b]);
        b:=b+1;
      end;
    a:=a+1;  
    while  a>5 do
      begin
        write (c[a,b]);
        a:=a+1;
      end;
    b:=b+1;    
  end;
end.