/KCUO - Viên kim cương

              Uses Crt;
        Var n,i,j,k,h:longint;
        Begin
          readln(n); i:=-1;
                for h:=1 to n do begin
                        if (h<=n div 2+1) then i:=i+2 else i:=i-2;
            for j:=1 to (n-i) div 2 do write('*');
            for k:=1 to i do write('D');
            for j:=1 to (n-i) div 2 do write('*');
                        writeln;
          end;
        
        End.