Дан массив a из n целых чисел. Требуется вывести только элементы с четными значениями. Формат входных данных На первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве. На следующей строке через пробел записаны целые числа ai (∣∣ai∣∣≤103) — элементы массива. Формат выходных данных Требуется в одной строке через пробел вывести все четные числа, в том же порядке, в каком они расположены во входном файле.

Var
  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], );
end.