Заполните массив с четным количеством элементов случайными числами и выполните реверс отдельно для первой и второй половины массива

ПаскальABCnet

Const nx=30; var n, i, k, t, j, kp : integer; p, pp: real; b:array[1 ... nx] of integer; beginReadln (n) ; if n mod 2 = 0 then beginp: = n/2; k:=round (p) ; pp: = k/2; kp:=round (pp) ; for i:=1 to n do beginb[i]:=random (98) - 25; write (b[i]:3) ; end; writeln; for i: = k downto 1 do beginj:=j + 1; t:=b[j]; b[j]:=b[i]; b[i]:=t; if i - kp = 1 then break; end; writeln; j:=k; for i: = n downto k+1 do beginj:=j + 1; t:=b[j]; b[j]:=b[i]; b[i]:=t; if i - (kp+k) = 1 then break; end; for i:=1 to n do write (b[i]:3) ; endelsewriteln ('Введено не правино') ; end.