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

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

1 Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var a:integer;
begin
  a:=35;
  repeat
    if ((a mod 3)=0) and ((a mod 6)=0) then
      write(a,' ');
      a:=a+1;
  until a>117;
readln();
end.       
                
Вывод консоли:
36 42 48 54 60 66 72 78 84 90 96 102 108 114