Підрахувати загальне число дільників натурального числа

Формулювання. 

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

Рішення. 

Необхідно провести перебір у циклі деякої кількості натуральних чисел на предмет виявлення дільників n, але при цьому необхідно знайти не перший з них з будь-якого кінця відрізка [1, n] (це відрізок, що містить всі числа від 1 до n включно ), а порахувати їх. Це можна зробити за допомогою лічильника count, який потрібно обнулити безпосередньо перед входом в цикл. Потім  в разі істинності умови подільності числа n (n mod i = 0) потрібно збільшувати лічильник count на одиницю (це зручно робити за допомогою оператора inc).

Алгоритм природною мовою:

1) Введення n;

2) Обнулення змінної count (в силу необхідності працювати з її значенням без попереднього присвоєння їй якогось числа)

3) Запуск циклу, при якому i змінюється від 1 до n. У циклі:

1. Якщо n ділиться на i (тобто, залишок від ділення числа n на i дорівнює 0), то збільшуємо значення змінної count на 1;

4) Виведення на екран значення змінної count.

program CountDiv;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.