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

Да "мозг" тут не причем, его можно получить меньше чем за 2 месяца ( я на проекте с 12.06.2014). Val в Паскале, увы, коряво реализована, она не функция, а процедура, что обычно требует отдельного оператора для обращения к ней. Инкремент - это для любителей C++ и ему подобных, лично я считаю, что он ухудшает наглядность программы для людей с малым опытом программирования, поскольку зрительно не адекватен написанному в блок-схеме x:=x+1

Лично меня поражает данный проект обилием разнородных задач, материалом для решений. И интересно, он хоть как-то коммерческий ли?

Это только администратор может сказать.

По программе. Там есть описка, оператор вывода s нужно местами с end поменять, иначе он отработает только один раз по завершении программы. Что до пустой строки - у меня в Pascal.ABC.NET она нормально завершает работу.

Да нет, надо же s только в конце выдать - количество чисел... Нет?

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.