Решение задачи в Паскале

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