Урок 12.1 Задача 5

Урок 12.1 Задача 5

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

var i: integer;
  begin
    i:=35;
    repeat
      if ((i>=45) and (i<=99))then
        if ((i mod 3)=0) then
          if ((i mod 7)=0) then
            if (not((i mod 2)=0)) then
              writeln(i);
      i:=i+1;
    until (i>117);
    readln();
  end.