Поменять местами две диагонали
Дан квадратный массив. Поменяйте местами в каждом столбце элементы, стоящие на главной и побочной диагонали.
Входные данные:
В первой строке дано число n≤10. Далее идут n строк по n неотрицательных целых чисел не больше 100.
Выходные данные
ответ на задачу.
Примеры
Ввод
3
1 2 3
4 5 6
7 8 9
Вывод
7 2 9
4 5 6
1 8 3

не во сколько число одно и то-же

1) описание массива должно быть константным, запись  n+20 - переменная. изменить: задать n+20 в виде константы.

2) будет куча ошибок

а) i: byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной c, хотя она используется (if c[i] mod 10=0 then p: =p+1; )

program z1;

var x,y: real;

begin

writeln('vvedite x i y');

readln(x,y);

if y=5*x*x-7*x+2 then

writeln('yes');

else

writeln('no');

end;

закодированный текст: byck is my dog.