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

Формулировка задачи:

Добрый день. Помогите пожалуйста с написанием программы на языке Паскаль. Вот условие, по которому нужно написать программу Дано натуральное число. Подсчитать общее количество его делителей.

Решение задачи: «Подсчитать общее количество делителей натурального числа»

Листинг программы

While (i<=n) do

Объяснение кода листинга программы

1. Переменная i принимает значения от 1 до n (включительно).
2. Пока значение переменной i меньше или равно значению переменной n, выполняется следующий блок кода.
3. Цикл while повторяется, пока условие (i<=n) остается истинным.
4. Значение переменной i увеличивается на единицу.
5. Если значение переменной i больше значения переменной n, цикл while прекращается.
6. В конце цикла while выполняется следующий блок кода.