var a:array[1..100000] of longint; b,i,n:longint; begin read(n); for i:=1 to n do read(a[i]); b:=n div 2; for i:=1 to b do write(a[i]*2,' '); for i:=b+1 to n do write(a[i]+1,' '); end. /************************************************************** Problem: 1582 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/