БоЛьшая степень

[n1ce > Kuzia]

НУЖНО ВОЗВЕСТИ ЧИСЛО 7 В 123(СТО ДВАДЦАТЬ ТРЕТИЮ СТЕПЕНЬ) 7^123 вОТ задача (ПОСМОТрите буду очень благодарен)
Program stepen;
Uses crt;
var i:integer;
p,p1:extended;
function Pow(a:real;n:integer):extended;
begin
clrscr;
textcolor(green);
p:=1;
a:=7;
if (n=0) then
Pow:=1
else
for i:=1 to n do
begin
p:=p*a;
p:=exp(123);
end;
Pow:=p;
end;
begin
p1:=Pow(7,123);
writeln('7^123= ',p1);
readln;
end.

[OCTAGRAM]

p должно быть локальной переменной, строчки a := 7 не должно быть вообще (иначе Pow(8,123) будет возводить в 123 степень 7, а не 8).

clrscr; textcolor(green); — этим строчкам не место в функции, должны быть снаружи

p:=exp(123); — это вообще непонятно, зачем здесь. всё портит. в топку

[Vedrus]

Так просто здесь не прокатит. Нужно реализовывать умножение столбикам, а числа в строковом представлении использовать.

Есть самописная библиотека на паскале, которая реализует 4 арифметические операции. С ней легко можно решить вашу задачу.

Могу поделиться, естественно не безвозмездно. Если интересно - пишите: VedaCoder@mail.ru

[OCTAGRAM]

Ну я так понимаю, 100% точность не требуется

[Plague]

7^123 = 88523570369346801684435811372718127 58567006111470214493356924526009325 3728999880981421881473709365496343

Нужно использовать длинную арифметику.
Начните дальше думаю помогут.

[OCTAGRAM]

А нужно ли? ТС так и не подтердил