var i,k: integer;
begin
k:=0;
for i:=100 to 999 do begin
if i mod 6 = 0 then
k:=k+1;
end;
writeln(k);
end.
var i,k: integer;
begin
k:=0;
for i:=100 to 999 do begin
if i mod 6 = 0 then
k:=k+1;
end;
writeln(k);
end.