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

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

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

var a: integer;

begin
a := 35;

  repeat

    if ((a mod 2) = 0) and ((a mod 3) = 0) and ((a mod 6) = 0) then
      writeln(a);
    a := a + 1;
    
  until(a > 117);
  
end.

КОНСОЛЬ

36
42
48
54
60
66
72
78
84
90
96
102
108
114