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

http://fkn.ktu10.com/?q=node/8674

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

var a: integer;

begin
a := 35; 

  repeat

    if ((a > 45) and (a < 99) and ((a mod 3) = 0) and ((a mod 7) = 0) and ((a mod 2) <> 0)) then
    begin
      writeln(a);
    end
  
    else if ((a mod 2) = 0) then
    begin
      writeln(a);
    end;

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

КОНСОЛЬ

36
38
40
42
44
46
48
50
52
54
56
58
60
62
63
64
66
68
70
72
74
76
78
80
82
84
86
88
90
92
94
96
98
100
102
104
106
108
110
112
114
116