Program CT;
Uses crt;
Var i,n,sochan,max: longint;
Begin
Clrscr;
Write ('n=');
Readln(n);
Max:= 2;
Randomize;
for i:=1 to n do
begin
repeat
sochan:=random(1000);
until (sochan mod 2=0) ;
if sochan>max then max:=sochan;
write(sochan,' ');
end;
Writeln;
Writeln (max);
Readln;
End.