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

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

end.