Возвести число 2 в степень 500

Program CS;
var
    st,i: integer;
    rez: real;
begin
st := 500;
rez := 1;
For i := 1 to st do
  rez := rez * 2;
writeln (rez);
end.

program power;
 
var
  s: string;
  n, i: integer;
 
function mult_2(s: string): string;
var
  i, k, m: integer;
begin
  s := '0' + s;
  m := 0;
  for i := length(s) downto 1 do
  begin
    k := strtoint(s[i]) * 2 + m;
    m := k div 10;
    s[i] := chr(k mod 10 + ord('0'));
  end;
  if s[1] = '0' 
    then s := copy(s, 2, length(s) - 1);
  result := s;
end;
 
begin
  readln(n);
  s := '1';
  for i := 1 to n do
    s := mult_2(s);
  writeln(s);
end.

Program DlUmn;
Const NMax = 2000;
Type Digit = 0..9; DlChislo = Array[1..Nmax] Of Digit;
Var t,st:integer;
    S : String;
    M, N, R, F : DlChislo;
    I, MaxF : Word;
    Logic : Boolean;
{Процедура обнуления длинного числа}
Procedure Zero(Var A : DlChislo);
Var I : Integer;
  Begin
    For I := 1 To NMax Do A[I] := 0;
  End;
{Функция определения количества цифр в записи длинного числа}
Function Dlina(C : DlChislo) : Integer;
Var I : Integer;
 Begin
   I := NMax;
   While (I > 1) And (C[I] = 0) Do I := I - 1;
   Dlina := I
 End;
{Процедура печати длинного числа}
Procedure Print(A : DlChislo);
Var I : Integer;
 Begin
    For I := Dlina(A) DownTo 1 Do Write(A[I] : 1);
    WriteLn
 End;
{Процедура преобразования длинного числа в массив цифр}
Procedure Translate(S : String; Var A : DlChislo;
                    Var OK : Boolean);
Var I : Word;
 Begin
   Zero(A); I := Length(S); OK := True;
   While (I >= 1) And OK Do
   Begin
      If S[I] In ['0'..'9']
      Then A[Length(S) - I+ 1] := Ord(S[I]) - 48
      Else OK := False;
      I := I - 1
   End
 End;
Procedure Multiplication(A, B : DlChislo; Var C : DlChislo);
Var I, J : Integer; P : Digit; VspRez : 0..99;
 Begin
  Zero(C);
  For I := 1 To Dlina(A) Do
  Begin P := 0;
        For J := 1 To Dlina(B) Do
        Begin
          VspRez := A[I] * B[J] + P + C[I + J - 1];
        C[I + J - 1] := VspRez Mod 10;
        P := VspRez Div 10
      End;
        C[I + J] := P
   End
 End;
{Основная программа}
Begin
    Writeln('Введите нужную степень');
    Readln(st);
    Zero(F);
    F[1] := 1;
    For t := 1 To st Do
     Begin
       I:=2;
       Str(I, S); {преобразование числа I к строковому типу S}
       Translate(S, M, Logic);
       Multiplication(F, M, F);
       WriteLn(t,' ','степень числа 2');
       Print(F);
     End
End.

program power;
 
var
  s: string;
  n, i, num: integer;
 
 
function mult(s: string): string;
var
  i, k, m, l: integer;
begin
  for i := 1 to ceil(log10(num)) do
    s := '0' + s;
  m := 0;
  l := 0;
  for i := length(s) downto 1 do
  begin
    k := strtoint(s[i]) * num + m;
    l := k div 10 + l div 10;
    m := l mod 10;
    s[i] := chr(k mod 10 + ord('0'));
  end;
  while s[1] = '0' do
    s := copy(s, 2, length(s) - 1);
  result := s;
end;
 
begin
  readln(num, n);
  s := '1';
  for i := 1 to n do
    s := mult(s);
  writeln(s);
end.