program p9_b_2 uses crt var integer begin clrscr write Vvedite natural

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.