Введите с клавиатуры два целых нечетных числа (первое больше второго). Выведите на экран последовательность нечетных чисел, расположенных между этими числами (паскаль)

var n1, n2, i: integer;

begin

write ('Ввод числа 1: '); readln (n1);

while (n1 mod 2 1) or (n1 = 1) do

begin

write ('Число должно быть нечётным и больше 1. Повторите ввод: '); readln (n1);

end;

write ('Ввод числа 2: '); readln (n2);

while (n2 > = n1) or (n2 mod 2 1) do

begin

write ('Число 2 должно быть меньше числа 1 и быть нечётным. Повторите ввод: '); readln (n2);

end;

write ('Последовательность нечётных чисел между ', n2,' и ', n1, ': ');

for i:=n2 to n1 do

if (i mod 2 = 1) then write (i, ' ');

end.