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.