Program Regrouper_tab;
Var T : Array [1..50] of Integer;
i, j, k, n, tmp : Integer;
Begin
Repeat
Write ('N = ');
Readln (n);
Until (n>=10) and (n<=50);
Randomize ;
For i := 1 To n Do 
Begin
T[i] := -20+Random (41);
Write (T[i]:4);
End;
k:=0;
For i := 1 To n Do
IF (T[i] mod 2) = 0 Then 
Begin
k := k+1;
IF i <> k then
begin
tmp := T[i];
For j:=i Downto k+1 Do T[j]:=T[j-1];
T[k] := tmp;
end;
End;
Writeln;
Writeln;
For i := 1 To n Do Write (T[i]:4);
End.