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

Держи
Program delitel;
vara,b,summa:integer;
beginwriteln('Введите число');readln(a);summa:=0;writeln('Делители');for b:=1 to 999 doif (a mod b) =0 then Begin write(b,'  ');  summa:=summa+b; end; writeln;writeln('Сумма всех делителей ' , summa);end.