Submission #3376196

---

Source Code Expand

var
i,j,c,d,e,b,n,m,max:longint;
a:array[1..10000] of string;
t,k:string;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
 for j:=i+1 to n do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
e:=1;
for i:=2 to n do
begin
 if a[i]=a[i-1] then inc(e)
else
 begin
 if e>max then begin max:=e;k:=a[i-1];end;
e:=1;
end;
end;
 if e>max then begin max:=e;k:=a[n];end;
writeln(k);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result