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

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

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

var a: integer;
begin
   a:=35;
  repeat
    if((a mod 2) = 0)then
      write(a, ' ');

    if (a<45) and (a>99) then
      if((a mod 2) = 1) and ((a mod 7) = 0) and ((a mod 3) = 0) then begin
        write(a, ' ');
      end;

    a := a+1;
  until (a>117);
  readln();
end.