из Qbasic в pascal или delphi

[vitalij-cher]

Здравствуйте. Есть программа на qbasic, помогите перевести на pascal или delphi.

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

[vitalij-cher]

Кто готов переписать за денежное вознаграждение пишите в личку или аську(409911316) желательно сразу укажите стоимость , или вообще может проще заново написать вот тема:
Программа печатает таблицу сложения одноразрядных чисел в р-ричной системе счисления, р<=16.
p.s. админы перенесите плиз во Фриланс

[vitalij-cher]

программа сделана. тему можно закрывать