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