for i:=1 to 999 do
if i mod 2 =0 then
writeln(i);
Program qr;
uses crt;
var x,i:integer;
begin
if not odd(i) then writeln(i);
readln;
end.
