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

Var p,k,i:integer; f:boolean;begin f:=false; p:=32; while not f do  begin  p:=p+1;  k:=2;  for i:=2 to p div 2 do   if p mod i = 0 then k:=k+1;  f:=k=32;  end;writeln(p);end.Результат:840