Таблица умножения в 13-ричной системе счисления

const
  aBase=13; // основание системы счисления
  C13: string = '0123456789ABC';
var
  n,x: integer;
  s: string;
  c: char;
begin
  write('Введите число: ');
  readln(n);
  s:=''; // накопитель цифр
  repeat
    x:=n mod aBase; // остаток от деления на основание
    n:=n div aBase; // частное от деления на основание
    c:=C13[1+x];    // выбираем цифру из строки
    s:=c+s;         // вставляем цифру в результат
  until n=0;
  writeln(s);       // вывод результата
  readln;
end.

uses crt;
const zn:string[13]='0123456789ABC';
{процедура перевода из СС 10 в СС 13}
procedure DecTo13(n:integer;var s:string);
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 13+1]+s;
  n:=n div 13;
 end;
end;
var i,j:integer;
    s:string;
begin
clrscr;
writeln('Таблица умножения в СС 13:');
write('    ');
for i:=1 to 12 do
write(i:3);
writeln;
writeln;
for i:=1 to 12 do
 begin
  write(i:3,' ');
  for j:=1 to 12 do
   begin
    DecTo13(i*j,s);
    write(s:3);
   end;
  writeln;
 end;
end.

const
  aBase = 13;
  
function Convert(n: integer): string;
const
  C13: string = '0123456789ABC';
var
  x: integer;
  s: string;
  c: char;
begin
  s:=''; // íàêîïèòåëü öèôð
  repeat
    x:=n mod aBase; // îñòàòîê îò äåëåíèÿ íà îñíîâàíèå
    n:=n div aBase; // ÷àñòíîå îò äåëåíèÿ íà îñíîâàíèå
    c:=C13[1+x];    // âûáèðàåì öèôðó èç ñòðîêè
    s:=c+s;         // âñòàâëÿåì öûôðó â ðåçóëüòàò
  until n=0;
  Convert:=s;
end;
 
var
  i, j: integer;
begin
  write('      ');
  for j:=1 to aBase-1 do write(j:4);
  writeln;
  for i:=1 to aBase-1 do
  begin
    write(i: 6);
    for j:=1 to aBase-1 do
      write(Convert(i*j):4)
    writeln;
  end;
  readln;
end.