Дан массив А(20). Переписать элементы этого массива, стоящие на четных местах, подряд в массив В, а стоящие на нечетных местах – в массив С.

var
  A: array [1..20] of integer;
  B, C: array [1..10] of integer;
  i, tmp: byte;
begin

for i := 1 to 20 do
begin
  A[i] := random(30)+1;
  write(A[i]:4);
  tmp := tmp + 1;
  if i mod 2 <> 0 then C[tmp] := A[i]
  else
  begin
    B[tmp - 1] := A[i];
    tmp := tmp - 1;
  end;
end;

writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.