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

Паскаль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.