Найдите наименьшее натуральное число, у которого ровно 32 делителя (включая 1 и само число 32). например, у числа 6 четыре делителя: 1, 2, 3, 6. в качестве ответа укажите одно натуральное число.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function KolDiv(n:integer):integer;
begin
  Result:=0;
  for var i:=2 to n div 2 do
    if n mod i=0 then Result+=1
end;

begin
  var n:=1;
  while KolDiv(n)<>30 do n+=1; // 30 - это без 1 и самого числа
  Writeln(n)
end.

Результат
840

840, для решения писал программу