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

http://fkn.ktu10.com/?q=node/8674

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

Вариант 1:

program task5_lesson12;
var i:integer;
begin
  i := 35;
  repeat
    if ((i mod 2) = 0) then
    writeln(i);
    i := i + 1;
  until (i > 117);
  i := 45;
  repeat
    if (((i mod 2) = 1) and ((i mod 21) = 0)) then
    writeln(i);
    i := i + 1;
  until (i > 99);
readln();
end.                

Вариант 2:

program task5_lesson12;
var i:integer;
begin
  i := 35;
  repeat
    if ((i mod 2) = 0) or (((i mod 2) = 1) and ((i mod 21) = 0) and (i < 99)) then
    writeln(i);
    i := i + 1;
  until (i > 117);
readln();
end.