Паскаль. на вход программе подаётся натуральное число n< =1000. выведите количество делителей числа n, включая 1 и само число n. ( )

// PascalABC.NET 3.3

begin
  var a:=ReadInteger;
  writeln(Range(1,a).Where(x->a mod x=0).Count);
end.

Пример:
12
6