29мбит/с Umin=5 uffufyoc8tdtd8dutost80dtdtusruzpufxputsputdtditdtidiyydydoydyocylclfluflufpu
Нет Readln, программа может вообще не пойти или же ты не сможешь из нее выйти
Обозначим за m ( = 2003) число строк в таблице, n ( = 2016) - число столбцов
a[i,j] - число, стоящее в i-ой строке, j-ом столбце в таблице, заполненной по горизонталям, b[i,j] - по вертикалям ( i = 1..m, j = 1..n)
Тогда a[i,j] = n*(i-1) + j, b[i,j] = m*(j-1) + i
Условие совпадения чисел в соответствующих клетках: a[i,j] = b[i,j]
2016*(i-1) + j = 2003*(j-1) + i
2016i - 2016 + j = 2003j - 2003 + i
2015i = 2002j + 13 {все числа делятся на 13}
155i = 154j + 1
Общее решение этого уравнения:
i = 1 + 154k
j = 1 + 155k
k = 0..13 (при k < 0 и при k > 13 i и j выходят из допустимого диапазона)
Т.е. всего 14 решений.
Ответ: 14
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.