Вывести на экран все нечетные числа из диапазона от a до b, кратные 7(a< =b)

ответ:

program numab;

var

  a, b, i: integer;

begin

  write ('введите а, в: ');

  readln (a, b);

  for i : = a to b do

    if (i mod 2 < > 0) and (i mod 7 = 0) then

      write (i, ' ');

  readln;

end.