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

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

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

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