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