Дан массив a из n целых чисел. требуется сначала вывести все четные элементы, затем — нечетные. формат входных данных на первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве. на следующей строке через пробел записаны целые числа ai (∣∣ai∣∣≤103) — элементы массива. формат выходных данных требуется в одной строке через пробел вывести элементы массива в заданном порядке.
i, n: integer;
a: array[1..1000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
writeln;
for i := 1 to n do if (a[i] mod 2 = 0) then write(a[i], ' ');
for i := 1 to n do if (a[i] mod 2 <> 0) then write(a[i], ' ');
end.