сколько трёхзначных чисел делятся на 4, но не делятся на 3??

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