const n = 10; var i, k :integer; a :array [1..n] of integer; begin for i:= 1 to n do readln(a[i]); readln(k); a[2]:= k; end.