Задача 6 урок 10.1

Задача 6 урок 10.1

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

var i:integer;
begin
     for i:=35 to 117 do
      begin
        if (i mod 3)=0 then
         write('delyatsya na 3',' ',i, ' ');
          if ((i >= 45)AND (i <= 99)AND((i mod 2) = 1)) then
           write('ne chetnie',' ',i, ' ');
      end;
readln();
end.

вывод консоли

delyatsya na 3 36 delyatsya na 3 39 delyatsya na 3 42 delyatsya na 3 45 ne chetnie 45 ne chetnie 47 delyatsya na 3 48 ne chetnie 49 delyatsya na 3 51 ne chetnie 51 ne chetnie 53 delyatsya na 3 54 ne chetnie 55 delyatsya na 3 57 ne chetnie 57 ne chetnie 59 delyatsya na 3 60 ne chetnie 61 delyatsya na 3 63 ne chetnie 63 ne chetnie 65 delyatsya na 3 66 ne chetnie 67 delyatsya na 3 69 ne chetnie 69 ne chetnie 71 delyatsya na 3 72 ne chetnie 73 delyatsya na 3 75 ne chetnie 75 ne chetnie 77 delyatsya na 3 78 ne chetnie 79 delyatsya na 3 81 ne chetnie 81 ne chetnie 83 delyatsya na 3 84 ne chetnie 85 delyatsya na 3 87 ne chetnie 87 ne chetnie 89 delyatsya na 3 90 ne chetnie 91 delyatsya na 3 93 ne chetnie 93 ne chetnie 95 delyatsya na 3 96 ne chetnie 97 delyatsya na 3 99 ne chetnie 99 delyatsya na 3 102 delyatsya na 3 105 delyatsya na 3 108 delyatsya na 3 111 delyatsya na 3 114 delyatsya na 3 117