Распечатать в порядке убывания нечетные числа из диапазона

[[ Senya Black ]]

Распечатать в порядке убывания нечетные числа из диапазона [5 .. 90], кратные 3 и не кратные 5 одновременно.

[Hacker19_90]

я конечно всё понимаю, но наработочки то можно ваши увидеть?

[[ Senya Black ]]

та сам еще не понял, что оно просит)

[Hacker19_90]

та сам еще не понял, что оно просит)

вот это

for i := 90 downto 5 do
  if odd(i) and ((i mod 3) = 0) and ((i mod 5) <> 0) then
    Write (i:4);

[[ Senya Black ]]

спасибо)))))))))))))))))