Ответ:

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" с тем количеством нулей, которое будет соответствовать заданной точности.