A/B/N:-writef("%w%r ",[A,B,N-1]). m:-readln(N),A=' ##'/' ##'/N,B=' #'/' #'/N,C='#'/' #'/N,A,B,C,C,C,B,A.