Как можно составить программу на языке Pascal для вычисления 100!-2 в степени 100?

Вот, к примеру, программа для поиска больших факториалов:
const
max = 300;

var
k: array[1..max] of longint;
m, l: longint;
i, j, n: integer;
p, s: string;

begin
for i := 1 to max do k[ i ] := 0;
l := 1000000;
s := '';
write('n ? '); readln(n);
k[1] := 1;
for i := 1 to n do
begin
m := 0;
for j := 1 to max do
begin
k[j] := k[j] * i + m;
m := k[j] div l;
k[j] := k[j] mod l;
end;
end;
for j := max downto 1 do
begin
str(k[j]:6, p);
s := s + p;
end;
for j := 1 to length(s) do
if s[j] = ' ' then s[j] := '0';
for j := 1 to length(s) do
if s[j] > '0' then
begin
s := copy(s, j, length(s) - j + 1);
break;
end;
j := 1;
while(s [j] = '0') do
begin
s[j] := ' ';
inc(j);
end;
writeln('L=', s.Length);
writeln(s);
end.
Если хочешь, могу сделать (не за бесплатно, разумеется).

Будет приблизительно 9.33*10^157
Думаю, тип Extended спасет гиганта мысли.
Кстати, достаточно посчитать 100!, потому что 2^100 меньше на 127 порядков и особого влияния на результат не оказывает.

не знаю как ты факториал посчитаешь, в степень знаком ^

неразумно.. . не боишься ? ))))
цикл будет простым, но вот паскаль умрёт переменных таких нет если я не ошибаюсь)) )
факториал 100 будет из 158 цифр !!!возведя в степень это ужас
я на JVM и С не хочу так эксперементировать... куда уж на pascal.
хочешь могу написать, запустишь прогу сама))) ) я даже тестить не буду