Составьте программу, находящую кол-во делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net))

//программа находит количество всех делителей числа, включая само число и 1Program n1;var x,i,k: integer;beginreadln(x);k:=0;for i:=1 to x do if x div i=x/i then k:=k+1;write('кол-во целых делителей числа ',x,': ',k);end.