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

11. While

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

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

// консоль 36 38 40 42 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 102 104 106 108 110 112 114 116 118