program lab;
uses crt;
const
 nm=10;
type
 mas=array[1..nm] of integer;
var
 i,j,ind,n,e:integer;
 m:mas;
 sh:char;
begin
 repeat
  clrscr;
  writeln('vvedite razmernost massiva');
  readln(n);
  writeln('vvod elementov massiva');
  for i:=1 to n do
   begin
    write('vvedite M[',i,']element masiva');
    readln(m[i]);
   end;
   for i:=1 to n-1 do
    if not odd(i) then
     begin
     e:=m[i];
     ind:=i;
     for j:=i+1 to n do
     if (m[j]<e) and (not odd(i))
     then
     begin
      e:=m[i];
      ind:=j;
      end;
      m[ind]:=m[i];
      m[i]:=e;
      end;
    writeln('otcortirovanniy massiv');
  for i:=1 to n do
   write(m[i], ' ');
  writeln;
  writeln('prodolzit(y\n)');
  readln(sh);
  until upcase(sh)='N';
 end.