Помогите решить задачу!!!

[Deis]

Вычислить 7 в 123 степени. В результате сохранить все цифры.

[maladoy]

program v123;
uses crt;
var k:comp;
begin
clrscr;
k:=exp(123*ln(7));
writeln(k);
readln;
end.

[Sazary]

maladoy TP7 говорит "Floating point overflow", а Free pascal:

 8.85235703693E+0103

Вообще, имхо задача явно на умножение "в столбик".

uses crt;
const base = 7;
st = 123;
var
s,tt : string;
c : char;
i,j,k,a,b,len : integer;
{st : integer;  }

begin
clrscr;
{readln(st); }
s := '7';
for i:=1 to st-1 do
  begin
  tt := s;
  len := length(tt);
  s := '';
  k := 0;
  for j:=1 to len do
    begin
    a := (ord(tt[j])-48)*base + k;
    b := a mod 10;
    k := a div 10;
    s := s + chr(b+48);
    end;
  if k <> 0 then s := s + chr(k+48);
  end;

len := length(s);
for i:=1 to trunc(len/2) do
 begin
 c := s[len-i+1];
 s[len-i+1] := s[i];
 s[i] := c;
 end;

writeln(s);
readln;
end.

Выводит:

88523570369346801684435811372718127585670061114702144933569245260093253728999880
981421881473709365496343