Составить программу которая находит количество натуральных чисел которые не делятся ни на одно из чисел 2,7,11

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.