{$N+}
program cislo;

var c,a:Extended;
    i:Integer;
    Fil:Text;

const n = 2;

begin
 Assign(Fil,'C:\fil.txt');
 Rewrite(Fil);
 a := 2;
  for i:= 2 to 2000 do
   begin
   a:= a * n;
   end;
  c:= a;
  Write(Fil,c);
  Close(Fil)
end.