Submission #3371493

---

Source Code Expand

var
 p:boolean;
 n,i,j,x,max,k:longint;
 s:ansistring;
 a:array[0..1005] of longint;
 b:array[0..1005] of ansistring;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(s);
   p:=true;
   for j:=1 to x do if b[j]=s then begin p:=false;break;end;
   if p then begin inc(x);b[x]:=s;a[x]:=1;end
        else inc(a[j]);
  end;
  max:=a[1];
  k:=1;
  for i:=2 to x do if a[i]>max then begin max:=a[i];k:=i;end;
  writeln(b[k]);
end.

Submission Info

Compile Error

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

Judge Result