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

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

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

var i,a: integer;
begin
  a:=117;
  i:= 35;
  repeat
    if ((i mod 3 = 0) and (i mod 6 = 0)) then
    write (i, ' ');
    i:= i+1;
  until (i>a);
readln();
end.

Консоль:

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