Вывести на экран все нечетные числа из диапазона от 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.