Pascal :

var n,i,sum:longint;
begin
	readln(n);sum:=0;
	for i:=1 to n do
    	if (i mod 3 = 2)and(i mod 5= 3)and(i mod 7=2) then inc(sum);
    writeln(sum);
end.