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

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

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

var a: integer;
begin
a:=35;
repeat
if (a>=35) and (a mod 2=0)  then write (a,' ');
if (a>=45) and (a<=99) and (a mod 2=1) and (a mod 7=0) and (a mod 3=0) then write (a,' ');
a:=a+1;
until (a=117);
end.