Program a13_18;
uses crt;
const n=11;
var i,k:byte;
      f:text;
Procedure Print(i:Byte; c:Char);
var j:byte;
  begin
    for j:=1 to i do write(f,c);
  end;
BEGIN
Assign(f,'c:\test.txt');
rewrite(f);
k:=(n div 2)+1;
for i:=1 to n do
  begin
    if i<=k then
      begin
        print(k-i,' ');
        print(2*i-1,'*');
      end
    else
      begin
        print(i-k,' ');
        print(2*(n-i)+1,'*');
      end;
    writeln(f);
  end;
close(f);
readln;
END.