program p9_b_2 uses crt var integer begin clrscr write Vvedite natural

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
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.