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

2: 1010101111 7: 2001 8: 1257 16: 2AF Обоснование: Const Rn : String[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; 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.