for(i,-n:=list(0,1,9)at(Date second&3),n,writeln(" "repeated(i=i abs),"*","**"repeated(n-i)))