лежащие в диапазоне от 35 до 117

Задача №4 из главы 12.1

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

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.       

Задача №3 из главы 11

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

var i:integer;
begin
  i := 35; // начальное значение счетчика(диапозона)
  while i <= 117 do //проверка выражения
  begin
    i:=i + 1;  //задаем шаг
    if (i mod 3) = 0 then   //если делиться на 3 нацело
      write(i, ' '); // выводим в одну строку с пробелом
  end;
  readln();
end.