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

Задача 6 Урок 12.1:

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

program task6;
var a: integer;
begin
  a:=35;
  repeat
    if (a>35) and (a mod 3=0) and (a mod 6=0) then
       writeln (a);
    a:=a+1;
  until (a=117);
  readln();
end.