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