var i,n:integer;

beginwriteln ('Введите число');readln(n);i:=0;repeatif i mod 2=0 thenbeginwriteln (i);i:=i+1;end;until i=n;end.

var i,n:integer; begin writeln ('введите число'); readln (n); i:=1; while i <=n begin writeln(i); end; readln; end. 

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