Мороженое

[Nikita++]

В кафе мороженое продают по три шарика и по пять шариков. Можно ли купить ровно k шариков мороженого? Ошибка на 3 тесте:

program Ice_cream;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   k:word;
begin
   readln(k);
   if ((((k mod 3)mod 5=0)or(((k mod 3)+5)mod 3=0))or(k mod 3=0)) then writeln('YES')
      else writeln('NO');
      readln;
end.

Pascal. Циклы не использовать.

[LeBron]

if (k<3||k==4||k==7)cout<<"NO"; else
cout<<"YES";