Напишите программу, выводящую степень числа 2 от 1 до n (с цикла с предусловием while)

Var
   s: biginteger;
   i, n: int64; 

 begin
  s := 1;
  i := 1;
  read(n);
  while i <= n do
  begin
    s := s * 2;
    i := i + 1;   
   write(s,' '); 
 end;
end.