program izbaci_najveci;

const

  MAXEL=100;

type

  niz=array[1..MAXEL] of integer;

var

  a,b: niz;

  inp, out: Text;

  n,i,max,ind:integer;

procedure najveci(n:integer; a:niz; var max,ind:integer);

var

  i:integer;

begin

  max:=a[1];

  ind:=1;

  for i:= 2 to n do

    if a[i]>max then

    begin

      max:=a[i];

      ind:=i;

    end;

end;

begin

  assign(inp,'vez01.in');

  assign(out,'vez01.out');

  reset(inp);rewrite(out);

  readln(inp,n);

  for i:=1 to n do

    readln(inp,a[i]);

  najveci(n,a,max,ind);

  for i:=1 to n do

    if a[i]<>max then

      writeln(out,a[i]);

  close(inp);close(out);

end.

  Back