WRITE A QBASIC PROGRAM TO DISPLAY *nepal* *nepa* *nep* *ne* *n*

WRITE A QBASIC PROGRAM TO DISPLAY
*nepal*
*nepa*
*nep*
*ne*
*n*
CLS
A$ = "nepal"
FOR i = LEN(A$) TO 1 STEP -1
    PRINT "*"; LEFT$(A$, i); "*"
NEXT i
END