Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4 но не делятся на 5?

var k:integer;beginfor var i:=1 to 999 do   if (i mod 2 =0) and (i mod 3 = 0) and (i mod 4 = 0) and (i mod 5 <> 0)    then inc(k);writeln(k);end.ОТВЕТ67