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