{Дана табл a[1..n] из целых чисел.Поставить сначала четные,а потом нечетные элм }

uses crt;
var a,b:array [1..10] of longint;
    m,i,j,n:longint;
 begin
  clrscr;
   write('кол-во элм. таб. n=');
   readln(n);
   for i:=1 to n do
      begin
        write('a[',i,']=');
		readln(a[i]);
      end;
     j:=0;m:=0;
   for i:=1 to n do
     begin
       if a[i]mod 2=0
         then
           begin
            j:=j+1;
            b[j]:=a[i];
           end
         else
           begin
            m:=m+1;
            b[n+1-m]:=a[i];
           end;
     end;
    for j:=1 to n do
     writeln('a[',j,']=',b[j]);
  readln;
 end.