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.

cHJvZ3JhbSBjaGlzbG87CnR5cGUgCiAgIG1hdHJpeD0gYXJyYXkgWzEuLjQsIDEuLjRdIG9mIGludGVnZXI7IAp2YXIgCiAgIGM6IG1hdHJpeDsgCiAgIGEsIGIsIGk6IGludGVnZXI7IHsg0LjQvdC00LXQutGB0Ysg0LzQsNGB0YHQuNCy0LAgfSAKYmVnaW4KICAgZm9yIGE6PTEgdG8gNCBkbyB70YbQuNC60Lsg0LTQu9GPINC/0LXRgNC10LHQvtGA0LAg0LLRgdC10YUg0YHRgtGA0L7Qun0gCiAgICAgIGZvciBiIDo9MSB0byA0IGRvIHvQv9C10YDQtdCx0L7RgCDQstGB0LXRhSDRjdC70LXQvNC10L3RgtC+0LIg0YHRgtGA0L7QutC4INC/0L4g0YHRgtC+0LvQsdGG0LDQvH0gCiAgICAgICAgIHJlYWQgKCBjIFsgYSAsIGIgXSk7IHvQstCy0L7QtCDRgSDQutC70LDQstC40LDRgtGD0YDRiyDRjdC70LXQvNC10L3RgtCwLCDRgdGC0L7Rj9GJ0LXQs9C+INCyIGEgLdC5INGB0YLRgNC+0LrQtSDQuCBiIC3QvCDRgdGC0L7Qu9Cx0YbQtX0KYTo9MTsKYjo9MTsKRm9yIGk6PTEgdG8gNCBkbwogIGJlZ2luCiAgICB3aGlsZSAgYj41IGRvCiAgICAgIGJlZ2luCiAgICAgICAgd3JpdGUgKGNbYSxiXSk7CiAgICAgICAgYjo9YisxOwogICAgICBlbmQ7CiAgICBhOj1hKzE7ICAKICAgIHdoaWxlICBhPjUgZG8KICAgICAgYmVnaW4KICAgICAgICB3cml0ZSAoY1thLGJdKTsKICAgICAgICBhOj1hKzE7CiAgICAgIGVuZDsKICAgIGI6PWIrMTsgICAgCiAgZW5kOwplbmQu

MSAyIDMgNCA1IDYgNyA4IDkgMTAgMTEgMTIgMTMgMTQgMTUgMTY=

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16