//Pascal ABC.NET 3.1 сборка 1256
{range(a,b)-множество чисел от а до b; where(x -> [условие]) - проверяет каждый элемент множества, в данном случае каждое число от 100 до 999, на соответствие условию. Если условие выполняется, значение переходит в новое множество. В данном случае, условие проверяет, не делится ли число на 2 И 3 И 5. То есть результат остаток от целочислительного деления(mod) не должен равняться 0 в каждом из случаев. .Count() возвращает количество элементов в множестве}
begin
writeln(range(100,999).Where(x -> (x mod 2<>0) and (x mod 3<>0) and (x mod 5<>0)).Сount);
end.
Результат:
240