Составить программу в Паскале:

Найти наибольшее целое n такое что :
a) 3n^4-730n<5
b) e^n-1000Ln*n<=10
 

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