Programmation en pascal

program conversion;

function exposant(a,b: Integer) : Integer;
var
 i: Integer;
 r: Integer;
begin
 r:=1;
 for i:=1 to b do
  r:=r*a;

 exposant:=r;
end;

function bin_decimal(binaire: String) : Integer;
var
 i : Integer;
 longueur : Integer;
 r: Integer;
begin
 r:=0;
 longueur:=length(binaire);
 for i:=1 to longueur do
  if(binaire[i] = '1') then r:=r + exposant(2, (longueur-i));

 bin_decimal:=r;
end;

function dec_hexa(nombre: Integer) : String;
var
 hex: String;
 strnombre: String;
 reste: Integer;
begin
 hex:='';
 while (nombre>0) do
 begin
  reste:= nombre mod 16;
  case reste of
   10: hex:='A' + hex;
   11: hex:='B' + hex;
   12: hex:='C' + hex;
   13: hex:='D' + hex;
   14: hex:='E' + hex;
   15: hex:='F' + hex;
  else
   begin
   strnombre:='';Str(reste,strnombre);
   hex:=strnombre + hex;
   end;
  end;
  nombre:=nombre div 16;
 end;

 dec_hexa:=hex;

end;

var nombre_a_convertir: Integer;
begin
 nombre_a_convertir:=bin_decimal('011101101');
 writeln(nombre_a_convertir);
 writeln(dec_hexa(nombre_a_convertir));

 readln();
end.