Цикл с перед условием или с пост условием , можно избрать

Язык - Pascal
Var
 n,m,i:longint;
begin
 readln(n,M);
 for i:=n to m do if not odd(i) then Write(i,' ');
end.
Если не включая n и m то строчку for i:=n to m do if not odd(i) then Write(i,' '); меняем на for i:=n+1 to m-1 do if not odd(i) then Write(i,' ');
Если не работает то напишите.