Составьте программу нахождения количества делителей числа 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.