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

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

var i, a: integer;
begin
  i := 35;
  a := 45;
  repeat
    if (i mod 2 = 0) then
      write(i, ' ');
    i := i + 1
  until (i > 117) ;
  writeln();
  repeat
     if (a mod 2 = 1) AND (a mod 3 =0) AND (a mod 3 =0) then
       write(a, ' ');
     a := a +1;
  until (a > 99);
  writeln('Exit');
  readln();
end. 

var i: integer;
begin
  i := 35;
  repeat
    if (i mod 2 =0) OR ((i mod 2 =1) AND (i mod 3 =0) AND (i mod 3 =0) AND (i >44) AND (i <100)) then
      write(i, ' ');
    i := i + 1
  until (i > 117) ;
  writeln('Exit');
  readln();
end.