программа на pascal или перевести с basic

Question

помогите пожалуйста очень срочно нужно написать 
вот условие: 
Напечатать таблицу сложения одноразрядных чисел в p-ичной системе 
счисления, p ≤16 
 или вот с basic 
CLS 
u$ = "0123456789ABCDEF" 
DO 
 INPUT "vvedite p"; p 
LOOP UNTIL p >= 2 AND p <= 16 
FOR j = 1 TO p 
 IF j = 1 THEN PRINT SPACE$(2); CHR$(179); 
 PRINT MID$(u$, j, 1); SPACE$(3); 
NEXT 
PRINT: PRINT STRING$(p * 4, 196) 
FOR i = 1 TO p 
 PRINT MID$(u$, i, 1); SPACE$(1); CHR$(179); 
 FOR j = 1 TO p 
 b = i + j - 2: c$ = "" 
 DO 
 c$ = MID$(u$, (b MOD p) + 1, 1) + c$: b = b \ p 
 LOOP UNTIL b = 0 
 PRINT c$; SPACE$(4 - LEN(c$)); 
NEXT: PRINT: NEXT

Аслан Абаев · Accepted Answer