pascal

var
a,i:integer;
begin
readln(a);
if a=1 then write('*')
else
begin
for i:=1 to a do
write('* ');
writeln;
for i:=1 to (a-2) do
begin
write('*');
for i:=1 to (2*a-3) do
write(' ');
writeln('*');
end;
for i:=1 to a do
write('* ');
end;
end.
var
b:array[1..9000000000] of longint;
a:array[1..1000000] of longint;
n,m,i,j,p:longint;
begin
fillchar(b,sizeof(b),0);
read(n);
readln(m);
for i:=1 to m do
begin
read(a[m]);
b[a[m]]:=b[a[m]]+1;
end;
j:=0;
for i:=1 to n do
begin
if b[i]>j then
begin
j:=b[i];p:=i;
end;
end;
if j>(m div 2)
then write(p)
else write('-1');
end.