type
TArr = array [1..100] of record
value, cnt : Integer
end;
function PopMax(var a : TArr; const n : Integer) : Integer;
var
m, i : Integer;
begin
m := 1;
for i := 2 to n do
if a[i].cnt > a[m].cnt then m := i;
PopMax := a[m].value;
a[m].cnt := -1
end;
var
n, m, i, j, k : Integer;
b : array [1..100, 1..100] of Integer;
a : TArr;
begin
ReadLn(n);
for i := 1 to n do begin
Read(a[i].value);
a[i].cnt := 0
end;
ReadLn(m);
for i := 1 to m do
for j := 1 to n do
Read(b[i, j]);
for k := 1 to n do
for i := 1 to m do
for j := 1 to n do
if b[i, j] = a[k].value then begin
Inc(a[k].cnt); Break;
end;
WriteLn(PopMax(a, n), ' ', PopMax(a, n), ' ', PopMax(a, n))
end.
dHlwZQoJVEFyciA9IGFycmF5IFsxLi4xMDBdIG9mIHJlY29yZAoJCXZhbHVlLCBjbnQgOiBJbnRlZ2VyCgllbmQ7CgpmdW5jdGlvbiBQb3BNYXgodmFyIGEgOiBUQXJyOyBjb25zdCBuIDogSW50ZWdlcikgOiBJbnRlZ2VyOwp2YXIKCW0sIGkgOiBJbnRlZ2VyOwpiZWdpbgoJbSA6PSAxOwoJZm9yIGkgOj0gMiB0byBuIGRvIAoJCWlmIGFbaV0uY250ID4gYVttXS5jbnQgdGhlbiBtIDo9IGk7CgkKCVBvcE1heCA6PSBhW21dLnZhbHVlOwoJYVttXS5jbnQgOj0gLTEKZW5kOwoKdmFyCgluLCBtLCBpLCBqLCBrIDogSW50ZWdlcjsKCWIgOiBhcnJheSBbMS4uMTAwLCAxLi4xMDBdIG9mIEludGVnZXI7CglhIDogVEFycjsKCmJlZ2luCglSZWFkTG4obik7Cglmb3IgaSA6PSAxIHRvIG4gZG8gYmVnaW4KCQlSZWFkKGFbaV0udmFsdWUpOwoJCWFbaV0uY250IDo9IDAKCWVuZDsKCglSZWFkTG4obSk7Cglmb3IgaSA6PSAxIHRvIG0gZG8gCgkJZm9yIGogOj0gMSB0byBuIGRvIAoJCQlSZWFkKGJbaSwgal0pOwoKCglmb3IgayA6PSAxIHRvIG4gZG8KCQlmb3IgaSA6PSAxIHRvIG0gZG8KCQkJZm9yIGogOj0gMSB0byBuIGRvIAoJCQkJaWYgYltpLCBqXSA9IGFba10udmFsdWUgdGhlbiBiZWdpbgoJCQkJCUluYyhhW2tdLmNudCk7IEJyZWFrOwoJCQllbmQ7CgkKCVdyaXRlTG4oUG9wTWF4KGEsIG4pLCAnICcsIFBvcE1heChhLCBuKSwgJyAnLCBQb3BNYXgoYSwgbikpCmVuZC4=
NQo4NCA1MSA4NyAyMyA1NwoxMAo5NCAxMCA4OCA0OCAzMgo1MCA0NCA2NSA2MCAyMQozNyAzMiAzNCA4OCAxMAo2MCA5NCAzMCAxOCAyNwoyNyA4OSA3OCAzMSAxNAo2NyAyMyA4NCA1MSA0MwozMiA3OCA5OCAyOSA5NgoxMSA2OSA4NCA1MSAyMwozMCA0NSA5MSA5MyAyOQoyOCAxMCAyOSA1NiA5Mw==
5
84 51 87 23 57
10
94 10 88 48 32
50 44 65 60 21
37 32 34 88 10
60 94 30 18 27
27 89 78 31 14
67 23 84 51 43
32 78 98 29 96
11 69 84 51 23
30 45 91 93 29
28 10 29 56 93