Pascal :

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