Задача 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 2) = 0) and ((i mod 3)=0) then
           write('chetnoe na 3:',i, ' ');
           writeln();
        if ((i >= 45)AND(i<=99) AND((i mod 2)=1)) then
           write('nechetnoe:',i, ' ');
   end;
   readln();
end.

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

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