var a:array[1..10000,1..10000] of char;
    i,j,n:longint;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=' ';
for i:=1 to n do
begin
a[1,i]:='*';
a[i,1]:='*';
a[n,i]:='*';
a[i,n]:='*';
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]);
writeln;
end;
end.
/**************************************************************
	Problem: 1492
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/