SoloCodigo

Hola, necesito ayuda con esto, me asignaron hacer un programa en pascal que dibuje un rombo de asteriscos, el ancho el rombo es definido por el usuario, por ejemplo, a ver si se visualiza bien:
    ancho: 7
           *
          ***
         *****
        *******
         *****
          ***
           *