var
  num, res : string;
  i, rem : integer;
 
function ChrToDigit(c : char) : integer;
begin
  ChrToDigit := ord(c) - ord('0');
end;
 
function DigitToChr(d : integer) : char;
begin
  DigitToChr := chr(d + ord('0'));
end;
 
begin
  num := '54765287694769587387647836748';
  res := '';
  rem := 0;
 
  for i := 1 to Length(num) do
  begin
    rem := rem * 10 + ChrToDigit(num[i]);
 
    if (res <> '') or (rem >= 13) then {не записываем ведущие нули}
        res := res + DigitToChr(rem div 13);
 
    rem := rem mod 13;
  end;
 
  if res = '' then
    res := '0';
 
  writeln('Результат: ', res);
  writeln('Остаток: ', rem);
end.

dmFyCiAgbnVtLCByZXMgOiBzdHJpbmc7CiAgaSwgcmVtIDogaW50ZWdlcjsKCmZ1bmN0aW9uIENoclRvRGlnaXQoYyA6IGNoYXIpIDogaW50ZWdlcjsKYmVnaW4KICBDaHJUb0RpZ2l0IDo9IG9yZChjKSAtIG9yZCgnMCcpOwplbmQ7CgpmdW5jdGlvbiBEaWdpdFRvQ2hyKGQgOiBpbnRlZ2VyKSA6IGNoYXI7CmJlZ2luCiAgRGlnaXRUb0NociA6PSBjaHIoZCArIG9yZCgnMCcpKTsKZW5kOwoKYmVnaW4KICBudW0gOj0gJzU0NzY1Mjg3Njk0NzY5NTg3Mzg3NjQ3ODM2NzQ4JzsKICByZXMgOj0gJyc7CiAgcmVtIDo9IDA7CiAgCiAgZm9yIGkgOj0gMSB0byBMZW5ndGgobnVtKSBkbwogIGJlZ2luCiAgICByZW0gOj0gcmVtICogMTAgKyBDaHJUb0RpZ2l0KG51bVtpXSk7CiAgICAKICAgIGlmIChyZXMgPD4gJycpIG9yIChyZW0gPj0gMTMpIHRoZW4ge9C90LUg0LfQsNC/0LjRgdGL0LLQsNC10Lwg0LLQtdC00YPRidC40LUg0L3Rg9C70Lh9CiAgICAgICAgcmVzIDo9IHJlcyArIERpZ2l0VG9DaHIocmVtIGRpdiAxMyk7CiAgICAgICAgCiAgICByZW0gOj0gcmVtIG1vZCAxMzsKICBlbmQ7CiAgCiAgaWYgcmVzID0gJycgdGhlbgogICAgcmVzIDo9ICcwJzsKCiAgd3JpdGVsbign0KDQtdC30YPQu9GM0YLQsNGCOiAnLCByZXMpOwogIHdyaXRlbG4oJ9Ce0YHRgtCw0YLQvtC6OiAnLCByZW0pOwplbmQu