Напечатайте все нечетные числа от 3 до 25 в программе Паскаль

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число 3 '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число 25 '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

if i mod 2 = 1 / / проверяем условие, если очередное число при делении на два в остатке дает единицу, то это означает, что число нечетное

then write (' ', i); / / выводим ответ в строчку через пробел

end.