uses crt;
Var a,u:array[1..1000]of string; b:array[1..1000]of longint; s,m:string; i,j,z,y,n,x,k:longint; d:text;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do readln(d,a[i]);
for i:=1 to n do
begin
s:='';
for j:=1 to length(a[i]) do
begin
s:=s+a[i][j];
x:=0;
for z:=1 to k do If (s=u[z])or(length(s)=b[z]) then x:=1;
If x=0 then
begin
inc(k);
u[k]:=s;
for z:=1 to n do
begin
m:='';
for y:=1 to length(s) do m:=m+a[z][y];
If m=s then inc(b[k]);
end;
end;
end;
end;
i:=k;
while(b[i]=1)do dec(i);
writeln(u[i]);
close(d);
readln
end.
Tuy hơi dài nhưng đúng , nhớ vote cho mình nha