program Pyramid;
var
	i		:Integer;
	height	:Integer;
	error	:Word;

procedure WriteStep(step:Integer);
var
	j	:Integer;
begin
	for j := -height + 1 to height - 1 do
		if Abs(j) <= height - step then
			Write('*')
		else
			Write(' ');
	WriteLn
end;

begin
	Val(ParamStr(1),height,error);
	if error <> 0 then
		WriteLn('invalid arguments')
	else
		for i := height downto 1 do
			WriteStep(i)
end.