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