Дан целочисленный массив размером N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные в порядке убывания их индексов
(если можно еще блок схему(не обязательно))

program z1;const N=10;var i,k:integer;a:array [1..N] of integer;beginfor i:=1 to N doreadln (a [i]);for i:=1 to N dobeginif (a [i] mod 2 = 0) thenwrite (a [i]);end;for k:=10 downto 1 dobeginif (a [k] mod 2 = 1) thenwrite (a [k]);end;end.