Перевести десятичное число 687 в двоичную, семеричную, восьмеричную, шестнадцатиричную системы счисления

2: 1010101111
7: 2001
8: 1257
16: 2AF

Обоснование:
Const Rn : String[36] = '0123456789';

Function DecToN(a : Longint; Raz : Byte) : String;
Begin
  If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
  else DecToN:=Rn[a+1];
end;

Begin
  Writeln(DecToN(687,2));
  Writeln(DecToN(687,7));
  Writeln(DecToN(687,8));
  Writeln(DecToN(687,16));
end.