var c:array[1..10] of integer;
    i,b,max:integer;
begin
  Randomize; max:=0;
  for i:=1 to 10 do
   begin
    c[i]:=Random(50); Write(c[i]:4);
    if c[i]>max then max:=c[i];
   end;
  Writeln; Writeln;
  Writeln('max = ',max); Writeln;
  Write('B = '); Readln(b);
  Writeln;
  for i:=1 to 10 do
   begin
    if (c[i] mod 2)=0 then c[i]:=c[i]+max;
    if (i mod 2)=0 then c[i]:=c[i]-b;
    Write(c[i]:4)
   end;
  Readln;
end.