var
s, k, err: integer;
str: string;
begin
writeln('Введённая пустая строка (без каких-либо символов) считается концом последовательности и, собственно, завершает выполнение программы, как бы говоря ей: "Эй, подруга! Выведи-ка количество чисел, не делящихся ни на два, ни на семь, ни на одиннадцать!"');
while (true) do
begin
readln(str);
val(str, k, err);
if (err > 0) then break;
if ((k mod 2 = 0) and (k mod 7 = 0) and (k mod 11 = 0)) then
inc(s);
end;
writeln(s);
end.