Var a,b:array[1..100] of integer; n,i:integer; begin readln(n); for i:=1 to n do begin read(a); b:=a*2; write(b,' '); end; end.