помогите решить вывести самое большое положительное n что бы оно удовлетворяло условие (-n^n+3*n^2-1)>0

если (-(n^n)+3*n^2-1)>0, то можно решить так:

var n,i,max,step,rez:integer;
begin
repeat
inc(n);(-n^n+3*n^2-1)>0
step:=1;
for i:=1 to n do step:=step*n;
rez:=-step+3*n*n-1;
if maxrez;
writeln(n-1,' (',max,')');
end.

а если ((-n)^n+3*n^2-1)>0, то максимальное найти не возможно.