var k:array[1..11] of longint;
m,l:longint;
i,j,n:integer;
p,s:string;
begin
for i:=1 to 11 do
k[i]:=0; {k[i] zapolneno 11 nolyami}
l:=1000000;
s:='';
write('n = '); readln(n); k[1]:=1;
for i:=1 to n do
begin
m:=0;
for j:=1 to 11 do
begin
k[j]:=k[j]*i+m; {k[1]:=0*0+0}
m:=k[j] div l; {m:=0 div 1000000 eto toje 0}
k[j]:=k[j] mod l; {k[1]:=0 mod 1000000 eto toje 0}
end;{k[i] zapolneno 11 nolyami}
end; {k[i] zapolneno 11 nolyami n raz}
for j:=11 downto 1 do
begin
str(k[j]:6,p);{p:='0' }
s:=s+p; {s:='00'}
end; {77 noley t.k. s:='00000000000000000000000000000000000000000000000000000000000000000000000000000'}
for j:=1 to length(s) do {77 ciklov}
if s[j]=' ' then s[j]:='0'; {izmenenij net t.k. s[j] ne pusto}
for j:=1 to length(s) do
if s[j]>'0' then
begin {suda ne popadaem t.k. '0'ne >'0' }
s:=copy(s,j,length(s)-j+1);
break
end;
j:=1;
while(s[j]='0') do
begin
s[j]:=' ';
inc(j)
end; {s-eto 77 probelov}
writeln;
writeln(s);
writeln;
{vivedenj 3 pustih stroki (srednyaya soderjit 77 probelov)}
for j:=9 downto 1 do {9 raz po 77 ciklov}
begin
for i:=1 to length(s) do
if ord(s[i])-48=j then write('*') else write(' ');
{esli 32-48=cislu iz intervala 9..1 to pechataj * inache probel}
writeln end;
for i:=1 to length(s) do {77 ciklov}
write('*');
writeln;
readln
end.