a.pascal

program ageofuser(input,output);
var
    i:integer;
    n:integer;
begin
    writeln('Please type n'); 
    readln(n); 
    
    i := 1;
    while i < n do
    begin
       i := i * 2;
       writeln(i);
    end;
end.