Submission #2698648

---

Source Code Expand

var s:array[0..100] of string;
maxst,t:string;
i,j,n,max,sum:longint;
begin
 readln(n);
 for i:=1 to n do readln(s[i]);
 for i:=1 to n-1 do
  for j:=i+1 to n do if s[i]<s[j] then begin t:=s[i]; s[i]:=s[j]; s[j]:=t; end;
 i:=1;
 maxst:=s[1]; max:=0;
 while i<=n do
 begin
  sum:=1;
  while s[i]=s[i+1] do begin inc(sum); inc(i); end;
  if sum>=max then begin max:=sum; maxst:=s[i]; end;
  inc(i);
 end;
 writeln(maxst);
end.

Submission Info

Compile Error

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

Judge Result