var i,n:word;s:string="* ";begin read(n);repeat write(s:n+i);s:="**"+s;inc(i)until i=n-1;write("*":i)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page