Дано натуральное число. подсчитать общее количество его делителей.

Почему бы тебе не закинуть все в одно ? ) не первый раз тебе пишу уже) program p_4; 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.