Составьте программу вывода числа делителей натурального числа М В ПАСКАЛЕ ABC ПОЖАЛУЙСТА

var m,d,kol:uint64; begin read(m); for d:=1 to m do begin    if (m mod d)=0 then inc(kol);    end; write(kol); end. Это программа для делителей от 1 до m. var m,d,kol:uint64;beginread(m);for d:=2 to m-1 do begin   if (m mod d)=0 then inc(kol);   end;write(kol);end. Эта программа для делителей от 2 до m-1.