var n: integer;
begin
n:=1;
while (n*n*n*n-(1500/n)<0) do
begin
n:= n+1;
end;
writeln('Наименьшее положительное n, при котором неравенство истинно: ',n);
end.
Если требовалось найти наименьшее вещественное положительное n, что вряд ли, то слово 'integer' заменяете на 'double' в первой строке, а в седьмой "n:= n+1;" заменяете на "n:=n+0.0001" с тем количеством нулей, которое будет соответствовать заданной точности.
