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

var i,n,s: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.