Qbasic program to print 54321, 4321, 321, 21, 1

CLS

FOR i = 5 TO 1 STEP -1

FOR j = i TO 1 STEP -1

PRINT j;

NEXT j

PRINT

NEXT i

END

Output: 

5 4 3 2 1

4 3 2 1

3 2 1

2 1

1