Дан массив А (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;