Дано целое число ,не меньшее 2.Вывести сколько делителей у этого числа.
В ПАСКАЛЕ РЕШЕНИЕ ДЛЯ 8КЛАССА

var n,i,k:integer;beginwrite ('Введите целое число (n>=2): ');readln (n);k:=0;for i:=1 to n doif n mod i = 0 then k:=k+1;writeln('Количество делителей числа ',n,' равно: ',k)end.