begin
var Count := 0;
var i := 100;
while i < 1000 do
if (i mod 10 > 7) or
(i div 10 mod 10 > 7) or
(i div 100 > 7) then
Count += 1;
i += 1
end;
Print(Count)
end.
