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

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99

var i:integer;
begin
  i := 35;
  while i <= 117 do
  begin
    i:= i + 1;
    if (i >= 35) AND (i <= 117)
          AND ((i mod 2) = 0) then
              write(i, ' ');
    if (i >= 45) AND (i <= 99)
          AND ((i mod 2) = 1) then
              write(i,' ');
  end;
  readln();
end.