program p9_b_2; {7 B 2.1}
uses crt;
var n, i, k, d : integer;
begin
clrscr;
write('Vvedite naturalnoe chislo n : '); readln(n);
write('Vvedite chislo k : '); readln(k);
d := 0;
for i := 1 to n do begin
if (n mod i = 0) then begin
if (i > k) then d := d + 1;
end;
end;
writeln('Kol-vo delitelei bolshih k : ', d);
readln;
end.