Проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
s: integer;
begin
for var i := 300 to 400 do
if (i mod 4) = 0 then
s := s + 1;
Print(s);
end.
