procedure Gnat.Io.A is N,X:Integer;begin
Get(N);declare S:String:=(1..N=>' ')&(1..2*N=>'*');begin
for I In 1..2*N loop X:=abs(I/N*(2*n)-I);Put_Line(S(X+1..2*X+N-1));end loop;end;end;