Оптимизация программы на Паскале

[HDMI]

Здравствуйте. У меня проблема, написал программу, а она при больших числах вызывает переполнение. Нужны идеи и способы как можно кардинально изменить подсчеты и заставить работать с большими числами. Главное - подсчет, особая точность не нужна.
Вводим N, Tn, T0. Затем считаем эти формулы:

Вот мой текст:

PHP код:

program model;
uses crt;
var P : array[0..100] of real;
N:longint;
i:integer;
Tn:real;
T0:real;
j:integer;
X:real;
znam:real;
L:real;
Totv:real;
function fact(y:longint):real;
 begin
  if y=0 then fact:=1
  else fact:=fact(y-1)*y;
 end;
begin
 writeln('Vvedite N');
 readln(N);
 writeln('Vvedite Tn');
 readln(Tn);
 writeln('Vvedite T0');
 readln(T0);
 X:=T0/Tn;
 for j:=0 to N do
 begin
  znam:=znam+(fact(N)*exp(ln(X)*j))/(fact(N-j))
 end;
 P[0]:=1/znam;
 for i:=1 to N do
 begin
  P[i]:=fact(N)*exp(ln(X)*N)*P[0];
  L:=L+i*P[i];
 end;
 Totv:=(L*Tn)/(N-L);
 writeln('Po = ',P[0]);
 writeln('Lcp = ',L);
 writeln('Totv = ',Totv);
 readkey;
 clrscr;
end. 


Я считаю отдельно знаменатель znam и использую его для подсчета в формулах.

[HDMI]

Неужели ни у кого нет предложений?

[Mad_Cat]

длинная арифметика спасет HDMI

[HDMI]

Проблему решил использованием extended вместо real