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

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

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

program project1;
var numb:integer;

begin
numb:=35;
  repeat
    numb:=numb+1;
  if((numb mod 2=0)and(numb mod 3=0)and(numb mod 6=0))then
    write(numb,' ');
  until (numb>116);
readln();
end.