var
i, n, count2, max2, count3, min3 : Integer;
begin
ReadLn(n);
count2:=0; max2:=0;
count3:=0; min3:=1000;
for i:=1 to n do
begin
Read(n);
if (n>9) and (n<100) then
begin
inc(count2);
if n>max2 then max2:=n;
end;
if (n>99) and (n<1000) then
begin
inc(count3);
if n<min3 then min3:=n;
end;
end;
if count2=count3 then
WriteLn(0)
else if count2>count3 then
WriteLn(max2)
else
WriteLn(min3);
end.
Объяснение:
