Цикл с пред условием или с пост условием , можно выбрать любой вывести на экран все чётные числа расположенные между числами n и m. если что 8 - 9 класс

Язык - 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,' ');
Если не работает то напишите.