RosettaCodeData/Task/Tau-function/PascalABC.NET/tau-function.pas

##
function DivisorsCount(n: integer) := Range(1,n).Count(i -> n.Divs(i));

Range(1,100).Select(n -> DivisorsCount(n)).Println