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.