Здравствуйте, Янусик!

Даааа давно Вы задаете этот вопрос.....
и так как Вам так на него никто и не ответил, решил дать ответ....

Решение смотрите в приложени.

Единственно немного поясню.
<b>Вырезка из справки:</b>
<font color=blue>
$N: Математический сопроцессор
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Переключает между двумя различными моделями генерации объектного кода обработки чисел с плавающей точкой, обеспечиваемыми компилятором.

Состояние $N-:
В состоянии $N-, компилятор генерирует код для выполнения всех вещественных
вычислений программно, вызывая подпрограммы библиотеки поддержки.

Состояние $N+:
В состоянии $N+, компилятор генерирует код для выполнения всех вещественных
вычислений с использованием математического сопроцессора 80x87 и дает вам
доступ к четырем дополнительным вещественным типам: Single, Double, Extended
и Comp.
</font>

Good Luck!!!


Приложение:
////=========== для maxintvar n:integer; s,p:extended;begin s:=0; n:=0; repeat inc(n); p:=exp(n*ln(n)); {n в степени n} s:=s+p;{данная строка просто выводит промежуточные результаты}{ writeln(‘n=‘,n); writeln(‘p=‘,p:5:2,‘ s=‘,s:5:2);} until (s>maxint) or (p>maxint); writeln(‘n=‘,n); readln;end.////=========== для maxlongint{$N+}var n:integer; s,p:extended;begin s:=0; n:=0; repeat inc(n); p:=(exp(n*ln(n))); {n в степени n} s:=s+p;{данная строка просто выводит промежуточные результаты}{ writeln(‘n=‘,n); writeln(‘p=‘,p:5:2,‘ s=‘,s:5:2);} until (s>maxlongint) or (p>maxlongint); writeln(‘n=‘,n); readln;end.