Найдите количество делителей натурального числа n

Программа на Паскале: program xxx; var i, n, k: integer; begin write ('введите число n-'); readln (n); k=0; for i: =1 to n do if n mod i=0 then k: =k+1; write ('количество делителей=', k); readlnend.