Решить кроссворд, найти слово

Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)

Информация в компьютере представляется набором кодов, а кодировка определяет то, как от кодов – неких чисел – перейти к тому, что ими закодировано.

Коля получил сообщение, первый символ которого он расшифровал как к. Согласно кодовой таблице КОИ-8 (в первом вложении), первый байт полученного сообщения был CB (в 16-ричной системе счисления). Петя же кодировал свое сообщение в другой кодировке (вторая таблица), в которой CB соответствует Л.

Аналогично, можно получить, что на самом деле должно было быть в сообщении, например, Р (код F2 в кодировке КОИ-8) соответствует т в кодировке Windows.

В итоге исходная строка, которую передавал Петя, окажется такой: "Любая информация может быть представлена с чисел"