Display a Numeric Patter in QBASIC

1
22
333
4444
55555
DECLARE SUB PAT ()


CLS
CALL PAT
END

SUB PAT
FOR I = 1 TO 5
FOR J = I TO 1 STEP -1
PRINT I;
NEXT J
PRINT
NEXT I
END SUB
*************************