Uses crt;
var i,n,dem,tong,j:Integer;
Begin
ClrScr;
write('Nhap so nguyen duong n');ReadLn(n);
dem:=0;
for j:=1 to n do begin
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if (j>=2) and (dem=2) then tong:=tong+1;
dem:=0;
end;
writeln('Co ',tong,' so nguyen to ');
Readln
End.