program ideone;
 
{$MODE OBJFPC}{$LONGSTRINGS ON}
 
type
  TNumbers = array of Integer;
 
  procedure Sort(var ANumbers: TNumbers);
  var
    I, J, Temp: Integer;
  begin
    for I := 0 to High(ANumbers) do
      for J := I to High(ANumbers) do
        if not Odd(ANumbers[I]) then
        begin
          Temp := ANumbers[I];
          ANumbers[I] := ANumbers[J];
          ANumbers[J] := Temp;
        end;
  end;
 
  procedure Print(const ANumbers: TNumbers);
  var
    Number: Integer;
  begin
    for Number in ANumbers do
      Write(Number:2);
 
    WriteLn();
  end;
 
var
  Numbers: TNumbers;
begin
  Numbers := TNumbers.Create(4, 8, 2, 9, 1, 3, 6, 7, 0, 5);
 
  Print(Numbers);
  Sort(Numbers);
  Print(Numbers);
end.
 

cHJvZ3JhbSBpZGVvbmU7Cgp7JE1PREUgT0JKRlBDfXskTE9OR1NUUklOR1MgT059Cgp0eXBlCiAgVE51bWJlcnMgPSBhcnJheSBvZiBJbnRlZ2VyOwoKICBwcm9jZWR1cmUgU29ydCh2YXIgQU51bWJlcnM6IFROdW1iZXJzKTsKICB2YXIKICAgIEksIEosIFRlbXA6IEludGVnZXI7CiAgYmVnaW4KICAgIGZvciBJIDo9IDAgdG8gSGlnaChBTnVtYmVycykgZG8KICAgICAgZm9yIEogOj0gSSB0byBIaWdoKEFOdW1iZXJzKSBkbwogICAgICAgIGlmIG5vdCBPZGQoQU51bWJlcnNbSV0pIHRoZW4KICAgICAgICBiZWdpbgogICAgICAgICAgVGVtcCA6PSBBTnVtYmVyc1tJXTsKICAgICAgICAgIEFOdW1iZXJzW0ldIDo9IEFOdW1iZXJzW0pdOwogICAgICAgICAgQU51bWJlcnNbSl0gOj0gVGVtcDsKICAgICAgICBlbmQ7CiAgZW5kOwoKICBwcm9jZWR1cmUgUHJpbnQoY29uc3QgQU51bWJlcnM6IFROdW1iZXJzKTsKICB2YXIKICAgIE51bWJlcjogSW50ZWdlcjsKICBiZWdpbgogICAgZm9yIE51bWJlciBpbiBBTnVtYmVycyBkbwogICAgICBXcml0ZShOdW1iZXI6Mik7CgogICAgV3JpdGVMbigpOwogIGVuZDsKCnZhcgogIE51bWJlcnM6IFROdW1iZXJzOwpiZWdpbgogIE51bWJlcnMgOj0gVE51bWJlcnMuQ3JlYXRlKDQsIDgsIDIsIDksIDEsIDMsIDYsIDcsIDAsIDUpOwoKICBQcmludChOdW1iZXJzKTsKICBTb3J0KE51bWJlcnMpOwogIFByaW50KE51bWJlcnMpOwplbmQuCg==