Задача 5 Урок 12.1 Repeat/Until

Repeat/Until

{12-1.5 Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

Указание: сначала можно решить задачу двумя циклами, но потом перепишите
с использованием одного цикла, в теле которого составьте логическое выражение,
описывающее подходящие числа (используйте логические операции).}

var a,b:integer;
begin
  a:= 35;
  b:= 117;
  repeat
    if (a mod 2 = 0) then
      write(a, ' ')
    else if ((a >= 45) AND (a <= 99)) AND ((a mod 3 = 0) AND (a mod 7 = 0)) then
      write(a, ' ');
    a:= a+1;
  until (a > b);
  write('over');
  readln();
end.