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

http://fkn.ktu10.com/?q=node/8674
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

var i: integer;
begin
writeln (' от 35 до 117');
i := 35;
repeat
while i < 117 do
begin
i:=i + 1;
if (i mod 2) = 0 then
writeln (i, ' ');
  end;
  writeln();
i:=45;
while i<99 do
begin
i:=i+1;
if (i mod 2=1) and (i mod 7=0) and (i mod 3=0)
then writeln (i,' ');
end;
readln();
until (i=117);
end.

var i: integer;
begin
writeln ('ответ');
i := 35;
repeat
while i < 117 do
begin
i:=i + 1;
if (i mod 2) = 0 then
writeln (i, ' ')
  else
  if (i>=45) and (i<=99)
  and (i mod 2=1) and (i mod 7=0) and (i mod 3=0)
then writeln (i,' ');
end;
readln();
until (i=117);
end.