Программа на Паскале:
program xxx;
var i, n, k : integer;
begin
write('введите число n-');
readln(n);
k=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
write('количество делителей = ', k);
readln
end.
