Задача 4 (mod 2 = 0)

var
  n,i:integer;
begin
  readln(n);
  for i:=1 to n do
    begin
      if (i mod 2) = 0
        then
          writeln(i)
    end;
end.