Дано натуральное число. Подсчитать общее количество его делителей.

почему бы тебе не закинуть все в одно задание?)не первый раз тебе пишу уже)program p_4; var     i, n, count: word;beginreadln(n);count := 0;for i := 1 to n do beginif n mod i = 0 then inc(count)end;writeln(count)end.