Урок №12.1 Задание 7

Урок №12.1 Задание 7

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

program Pr12_1_7;
var i:integer;
begin
     i:=35;
     repeat
     if ((i mod 3=0) or (i mod 6=0)) and (i mod 2=0) then
      write(i:4);
     i:=i+1;
     until (i=117);
  readln();
end.            

Консоль:

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