Кратные 3, но не кратные 2 и 5
Проверку кратно ли число 3, если да , и оно не кратно 2 и 5, то вывести "YES", если число кратно 3 и 5 или 3 и 2, тогда вывести "NO"

Ответ:

program MultiplesOfThree;

var

num: integer;

begin

write('Введите число: ');

readln(num);

if (num mod 3 = 0) and (num mod 2 <> 0) and (num mod 5 <> 0) then

writeln('YES')

else if ((num mod 3 = 0) and (num mod 5 = 0)) or ((num mod 3 = 0) and (num mod 2 = 0)) then

writeln('NO')

else

writeln('Число не удовлетворяет условию');

readln;

end.