Плииииизз Составить программу с помощью процедуры. Дано число, найти все его делители и подсчитать их количество.

надо найте не сумму делителей, а просто их количество

Так,давай по новой,что бы я ее еще раз сделал.

Тебе надо,что бы система нашла все его делители,а потом система подсчитала их количество?

Вот,держи Program delitel; var a,b,i, number:integer; begin writeln('Введите число'); readln(a); writeln('Делители'); for b:=1 to 999 do if (a mod b) =0 then Begin write(b,' '); end; writeln; begin number := 1; for i := 1 to a div 2 do begin if a mod i = 0 then number := number + 1; end; writeln('Количество делителей ',number); end; end.

спасибо