Question

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

Answer 1

// PascalABC.NET 3.3

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

Пример:
12
6