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

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