begin
  var n := ReadlnInteger('n =');//сколько чисел в массиве
  var a := ReadArrInteger(n);
  var b := Copy(a);
  var Max := b[0];
  var k := 0;

  for var i := 1 to b.High do
    if Max <= b[i] then begin Max := b[i]; k := i end;

  for var i := k + 1 to b.High do b[i] := 0;
  b.Println;

  for var i := 0 to a.High do
    if a[i] > 0 then Print(a[i]);
    
  for var i := 0 to a.High do
    if a[i] < 0 then Print(a[i])
end.