Question

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

Answer 1

var min, max: integer;
begin
max := 1023;
for min := 31 to max do
if ( min mod 2 <> 0 ) then write( min, ' ');
end.