Program BT;
Var n,k,i,j,dem,d :longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until n > 0 ;
repeat
Write ('Nhap K : ');Readln(k);
until k > 0 ;
dem :=0;
d := 0;
For i := 1 to n do
Begin
For j := 1 to i do If i mod j = 0 then d := d + 1;
If d = k then dem := dem + 1;
d := 0;
end;
Write ('Co ',dem,' so co ',k,' uoc so nguyen duong!');
end.