2的100次方用pascal语言

完整程序如下：

{$apptype console}
program exp;
var
  s:string;
  i,j,k,n:integer;
begin
  write('本程序高精度计算2的n次方，n=');
  readln(n);
  s:='1';
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to length(s) do
    begin
      k:=k+(ord(s[j])-ord('0'))*2;
      s[j]:=chr(ord('0')+k mod 10);
      k:=k div 10;
    end;
    if k>0 then s:=s+chr(ord('0')+k);
  end;
  for i:=length(s) downto 1 do write(s[i]);
end.

本程序在DELPHI下调试通过，运行过程如下：
E:\