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

var n1,n2,i: integer;beginwrite(\'Ввод числа 1: \'); readln(n1);while (n1 mod 2 <> 1) or (n1 = 1) dobeginwrite(\'Число должно быть нечётным и больше 1. Повторите ввод: \'); readln(n1);end;write(\'Ввод числа 2: \'); readln(n2); while (n2 >= n1) or (n2 mod 2 <> 1) dobeginwrite(\'Число 2 должно быть меньше числа 1 и быть нечётным. Повторите ввод: \'); readln(n2);end;write(\'Последовательность нечётных чисел между \', n2,\' и \', n1, \': \');for i:=n2 to n1 doif (i mod 2 = 1) then write(i, \' \');end.