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

var i,k: integer;begin  k:=0; i:=24;  repeat    if (i mod 5)<>0 then inc(k);    i:=i+24;  until i>1000;  writeln(k);end.33