Можно ли купить ровно k шариков мороженого? (Pascal)

AvariItigail

10 июня 2016

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

Входные данные
Вводится число k (целое,положительное)

Выходные данные
Программа должна вывести слово YES, если при таких условиях можно набрать ровно k шариков (не больше и не меньше), в противном случае - вывести NO.

Исходный код на языке Pascal

var
  a, k: integer;

begin
  read(a);
  while a > 2 do
  begin
    if (a mod 5 = 0) or (a mod 3 = 0) or ((a - 3) mod 5 = 0) or ((a - 5) mod 3 = 0) then 
    begin
      writeln('YES'); 
      k := 13;
      break;
    end;
    a := a - 3;
  end;
  if k <> 13 then 
    writeln('NO');
end.