program even_numbers;

var
   n, i: integer;

begin
   write('Nhap so nguyen duong n: ');
   readln(n);
   writeln('Cac so chan nho hon hoac bang ', n, ' la: ');
   for i:=0 to n do
      if i mod 2 = 0 then
         writeln(i);
   readln;
end.