Напишите таблицу умножения в 13-ой системе счисления

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!function DecTo13(n:integer):string;begin  var S:='0123456789ABC';  Result:='';  if n=0 then Result:='0'  else    while n>0 do begin      Result:=S[n mod 13+1]+Result;      n:=n div 13      endend;begin  Write('    '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln;  Writeln(14*4*'-');  for var i:=1 to 13 do begin    Write(DecTo13(i)+':':4);    for var j:=1 to 13 do Write(DecTo13(i*j):4);    Writeln    endend.Результаты - во вложениях.