Урок 12.1. Задача 7.

Урок 12.1. Задача 7.

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

var a : integer;

begin
  a := 35;
  repeat
    if (a mod 2 = 0) then
      write(a, ' ')
    else
      if ((a > 44) and (a < 100)) and ((a mod 3 = 0) or (a mod 7 = 0)) then
        write(a, ' ');
    a := a + 1
  until (a > 117);
  readln();
end.