Выведите на экран все нечетные числа от 31 до 1023

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i:=31 to 1023 do / /организуем перебор всех чисел от 31 до 1023

if i mod 2 = 1 then write (i,' '); / /проверяем, если очередное число не делится на два, то выводим это число на экран в строчку через пробел

end.