Процедуры,паскаль

[Svetlana999]

Дано натуральное число.Найти все его делители.Подсчитать их количество.
Сделать надо через процедуру,найтите ошибки)

program kk;
uses crt;
var
a,b:integer;
procedure proc(x,y:integer);
var
i:integer
begin
  k:=2;
  for i:=2 to n-1 do
  if n mod i=0 then k:=k+1;
 end;
KD:=k;
end;
var
n:longint;
begin
clrscr;
write(Введите натуральное число n=');
readln(n);
writeln('Количество делителей=',KD(n));
readkey;
end.

[GetMax]

Главная ошибка у в том, что процедура Ваша не возвращает количество найденных делителей. Для её устранения нужно процедуре передать формальный параметр-переменную k. Имеем

procedure proc(n : Integer; var k : Integer);
var
i:integer
begin
  k:=2;
  for i:=2 to n-1 do
  if n mod i=0 then
  Begin
     k:=k+1;
     Write(i,'  '); //выводим делитель
  End;
 end;
end;

А в основной программе заменяем её(k) на фактический параметр, например count

Begin
  .....
  proc(NN, cout); //где NN - натуральное число, у которого надо посчитать делители
End.