Var a:array of integer;
n,i:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
for i:=0 to n-1 do if a[i] mod 2=1 then write(a[i],' ');
writeln();
for i:=0 to n-1 do if a[i] mod 2=0 then write(a[i],' ');
end.
Вот, держи, извини за качество