var n,i:integer;
begin
n:=0;
for i:=-11 to 100 do
if i mod 4=0 then n:=n+1;
writeln(n);
end.
Тестовое решение:
28
