Способ №1

var n,i:integer;

begin

readln(n);

i:=1;

while i<=n do

 if i mod 2=0 then

 begin

  writeln(i);

  i:=i+1;

 end;

readln;

end.

Способ №2

var n,i:integer;

begin

readln(n);

for i:=1 to n do

 if i mod 2=0 then

  writeln(i);

readln;

end.

Способ №3

var n,i:integer;

begin

readln(n);

i:=1;

repeat

 if i mod 2=0 then

  begin

   i:=i+1;

   writeln(i);

   end;

until i=n;

end.