Пасаль, Строки.

[seeton]

Описать функцию 1)DecToBin(N) 2)DecToHex(N) строкового типа,
которая возвращает строковое представление целого
неотрицательного числа N в 1)двоичной 2)16-ричной системе счисления.
Результирующая строка состоит из символов 1)['0'–'1'] 2)['0'–'9', 'A'–'F']
и не содержит ведущих нулей
(за исключением представления числа 0).
Используя эту функцию, получить 1)двоичные 2)16-ричные
представления данных пяти чисел.

[Stilet]

Что гугл отменили?
http://www.delphiworld.narod.ru/base..._calculus.html

[SERG1980]

Вот для перевода в НЕХ а в BIN рули поиском по форуму примеров куча

uses crt;
const HexString:string='0123456789ABCDEF';
var a,b:integer;
     decch:word;
    HEX:string;
BEGIN
 ClrScr;
 WriteLn('Vvedite chislo');
 ReadLn(decch);
 Hex:='';
 while decch > 0 do
 begin
  a:=decch;
  decch:=Trunc(decch/16);
  if decch > 0 then
  begin
   b:=a-(16*decch);
   HEX:=HexString[b+1]+HEX;
  end else HEX:=HexString[a+1]+HEX;
 end;
 WriteLn('$'+HEX);
 ReadLn;
END.

Ну думаю в ф-ию это переделать несложно будет