var
  ar: array[1..10]of integer;
  i, max, maxi: integer;

begin
  max := -101;
  for i := 1 to 10 do 
  begin
    read(ar[i]); // ar[i]:=random(201)-100;
    if (max < ar[i]) and (ar[i] < 0) then 
    begin
      max := ar[i];
      maxi := i;
    end;
    //write(ar[i],' '); // если использовать рандом
  end;
  writeln;
  ar[maxi] := abs(ar[maxi]);
  for i := 1 to 10 do
    write(ar[i],' ');
end.