Классная работа

var i,n:integer;
Begin
writeln('Введите n');
readln(n); i:=1;
While i<=n do
if i mod 2=0 then
Begin
writeln(i);
i:=i+1
end;
readln;
end.