Submission #3094880

---

Source Code Expand

var
	n,m,a,i,j,c:Longint;
	s:array[1..50]of String[50];
begin
	readln(n);
	for i:=1 to n do readln(s[i]);
	for i:=1 to n do begin
		c:=0;
		for j:=1 to n do if s[i]=s[j] then inc(c);
		if c>m then begin
			m:=c;
			a:=i;
		end;
	end;
	writeln(s[a]);
end.

Submission Info

Compile Error

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

Judge Result