Напечатать таблицу сложения одноразрядных чисел в p-ичной системе счисления,p<=10- QBasic(Бейсик)

INPUT "vvedite systemu P ", p
FOR i = 0 TO p - 1
    FOR j = 0 TO p - 1
        r = i + j
        IF r > p THEN r = 10 + r - p
        PRINT i; "+"; j; "="; r;
    NEXT
    PRINT
NEXT