Дз

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