Тема Паскаль: необходимо поменять местами половинки массива (54231-31254, это к…

Const n=?; {Кол-во элементов в массиве, написать число вместо "? "}Var a,b: array[1… n] of integer; x,k,i,j: integer; Begin writeln ('Init massive: '); for i: =1 to n do begin readln (x); {а лучше написать read (x); и вводить числа через пробел одной строкой, красивее будет} a[i]: =x; end; k: =n div 2; if (n mod 2) <>0 then k: =k+1; j: =1; for i: =(k+1) to n do begin b[j]: =a[i]; j: =j+1; end; if (n mod 2) <>0 then begin b[k]: =a[k]; k: =k-1; j: =j+1; end; for i: =1 to k do begin b[j]: =a[i]; j: =j+1; end; for i: =1 to n do write (b[i],'); End.