var i,n:integer;
begin
writeln('vvedite chislo');
readln(n);
while  i<=n do
if i mod 2=0 then
writeln(i);
readln;
end.

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

var i,n:integer;
begin
writeln ('Введите число');
readln(n);
i:=0;
repeat
if i mod 2=0 then
begin
writeln(i);
i:=i;
end;
until i=n;
end.

Решение задачи:
var
  i, n: integer;

begin
 
i := 1; 
 
readln(n);
 
repeat
   
  writeln(i);
   
  inc(i);  
 
until i = n;

end.