Qbasic Program to print the following pattern without using locate function. 1, 26, 3710, 481113,59121415

Qbasic Program to print the following pattern without using locate function.

CLS
FOR r = 1 TO 5
    p = r
    FOR c = 1 TO r

        PRINT p;

        p = p + 5 - c

    NEXT c

    PRINT
NEXT r
END