Помогите, пожалуйста. СМ ФОТО. Можете все расписать поподробнее

Программа на паскале для подсчета: 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 2<>0) and (x mod 3<>0) and (x mod 5<>0)).Сount); end. Результат: 240