составьте программу нахождения количества делителей числа n (значение n вводится с клавиатуры)

uses crt; Var x, y, k:integer; procedure delit; begin  k:=0;  writeln('Делители числа ', x, ':');  for y:=1 to x do  if x mod y=0 then begin write( y, ' ');   k:=k+1 end;  writeln('Количество делителей числа ', x, ' равно ', k); end; begin clrscr;  writeln ('Введите число: ');  readln (x);  delit;  readln; end.