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

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], ' ');
  for i:=1 to 20 do write(c[i], ' ');
end;