дано натуральное число n>1 найти количество его делителей. В паскале с циклом for

Тупо и в лоб:

readln(n);
k:=1;
for j:=2 to (n shr 1) - 1 do
if n mod j = 0 then
inc(k);
writeln(k shl 1);

А теперь объясни это училке.