Составить программку в Паскале:Отыскать наивеличайшее целое n такое что :a) 3n^4-730namp;lt;5b)

1) Если использовать заключительный Паскаль АВС, который умеет вычислять ступень (Power), то вот вариант программы:
var
   n:integer;
   s:real; вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 итог вычислений будет real
begins:=0;
n:=1;
while slt;5 do 
   begin
   s:=3*power(n,4)-730*n; для ветхого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n
   n:=n+1
end;
writeln(n)
end.

2)
var n,s:real;
begin
s:=0;
n:=1;
while slt;=10 do
   begin
   s:=exp(n)-1000*Ln(n);
   n:=n+1
   end;
writeln(n)
end.