Submission #3334408

---

Source Code Expand

var
 i,j,n,p,max:longint;
 a:array[0..51] of string;
 s:string;
begin
 readln(n); 
 for i:=1 to n do readln(a[i]);
 for i:=1 to n do
  begin
   p:=1;
   for j:=i+1 to n do
    if a[i]=a[j] then inc(p);
   if p>max then begin max:=p; s:=a[i]; end;
  end;
 writeln(s);
end.

Submission Info

Compile Error

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

Judge Result