Программа на паскале для подсчета:
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
 if (i mod 2 0)and(i mod 3 0)and(i mod 5 0) then k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 240

//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 20) and (x mod 30) and (x mod 50)).Сount);
end.

Результат:
240