n:=12;for(i,-n,n,for(j,-n,n,(" "..(i abs+j abs+65)asCharacter)print);writeln)