[lmikle]

Ну и что сложного?
Тебе нужно:
1. Функция перевода десятичного числа в эту самую систему исчисления.
2. Два цикла (вложенные), от 1 до N, которые тебе дадут исходные числа и из произведение/сумму. Для вывода на экран тебе потребуется функция из п.1.

Собственно, примерно так:

Код:

function NToStr(N : Integer) : String;
begin
  // Здесь код перевода, по типу IntToHext.
end;

// Таблица сумм. 
// Таблица умножения делается так же, только операция меняется 
// (+ на * в теле внутреннего цикла)
procedure PrintTablesSum(N : Integer);
var
   I, J : Integer;
begin
  For I := 1 To N Do
    Begin
      WriteLn(NToStr(I)+':');
      For J := 1 To N Do
         WriteLn(NToStr(I),' + ',NToStr(J),' = ',NToStr(I+J));
      WriteLn;
    End;
end;

Да, код для консоли написан
Для вывода в Memo, например, надо заменить WriteLn на соотв. Add у Memo.