Написать программу, точно вычисляющую число 2^-1000

var i:integer;
    a:string;
 
function x_na_2(x:string):string;
var i,k:integer;
    d:char;
begin
  x:='0'+x;
  d:='0';
  for i:=length(x) downto 1 do
   begin
    k:=(ord(x[i])-48)*2;
    x[i]:=chr((k mod 10+48)+(ord(d)-48));
    d:=chr(k div 10+48);
   end;
  if x[1]='0' then delete(x,1,1);
  x_na_2:=x
end;
begin  
 a:='1';
 for i:=1 to 1000 do a:=x_na_2(a);
 writeln('2^1000=',a);
 writeln('2^-1000= 1/',a);
end.

var i:integer;
    a:string;
 
function x_del_2(x:string):string;
var i:integer;
    y,x1:string;
    d:integer;
begin
  if x='1' 
   then y:='5'
   else
    begin
     x:=x+'0';
     delete(x,1,2);
     y:='';
     i:=1;
     d:=ord(x[1])-48;
     while (d>0)or(i<=length(x)) do
      begin
       str(d div 2,x1);
       y:=y+x1;
       d:=(ord(x[i])-48) mod 2;
       if length(x)<=i
        then d:=d*10
        else d:=d*10+ord(x[i+1])-48;
       inc(i) 
     end;
    end; 
  x_del_2:='0.'+y 
end;     
begin
 a:='1';
 for i:=1 to 1000 do a:=x_del_2(a);
 writeln(a);
end.

const n=1000;
var i,j,y:integer;
    d:byte;
    x:array[1..n+1] of byte;
begin
 x[1]:=10;
 for i:=2 to n+1 do x[i]:=0;
 for i:=1 to n do
  begin
   d:=x[1];
   for j:=1 to i do
    begin
     y:=x[j];
     x[j]:=d div 2;
     d:=y mod 2;
     d:=d*10+x[j+1];
    end
  end;  
 write('0.'); 
 for i:=1 to n do write(x[i])
end.