Урок №12.1 Задание 8

Урок №12.1 Задание 8

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

program Pr12_1_8;
var i:integer;
begin
     i:=35;
     repeat
     if (i mod 2=0) then write(i:4);
     if ((i>=45) and (i<=99)) and ((i mod 7=0) and (i mod 3=0) and (i mod 2<>0))
     then write (i:4);
     i:=i+1;
     until (i=117);
  readln();
end.    

Консоль:

 36  38  40  42  44  46  48  50  52  54  56  58  60  62  63  64  66  68  70  72  74  76  78  80  82  84  86  88  90  92  94  96  98 100 102 104 106 108 110 112 114 116