program z16_88;
uses crt;
const n=5;
var a,b:array[1..n] of integer;i,k:integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to n do begin
a[i]:=random(30);write(a[i]:3);
if a[i] mod 2 =0 then begin k:=k+1;b[k]:=a[i]; end;
end;writeln;
for i:=1 to n do begin
if a[i] mod 2 =0 then
begin a[i]:=b[k];k:=k-1; end;
write(a[i],' ');end;
end.