program menu;
uses crt;
TYPE
tab= array [1..100] of integer;
VAR
T:tab; x:integer; k:integer; c:integer;

procedure saisir (VAR x:integer);
Begin
	writeln('Donner le nombre a convertir');
	readln(x);
end;

procedure dec_to_bin (VAR T:tab; VAR k:integer; x:integer);
VAR
i,o:integer;

Begin
	k:=0;
	Repeat
	o:= x Mod 2;
	x:= x Div 2;
	k:=k+1;
	T[k]:=o;
	until (x=0);
end;

procedure afficher (T:tab; k,x:integer);
VAR
i:integer;
Begin
	write(X,' en binaire = ');
	For i:= k downto 1 do begin
		write(T[i]);
    end;
end;

function puissance (a:integer; b:integer):longint;
VAR
i:integer; x:integer;
 Begin
x:=1;
 	For i:= 1 to b do begin
 		x:=a*x;
    end;
    puissance:=x;
end;

function bin_to_dec (X:integer):integer;
VAR
i,dec:integer; CH:string;
Begin
	Str(X,CH);
	dec:=0;
	For i:= 1 to length(CH) do begin
		If (CH[length(ch)-i+1] = '1') then dec:=dec+puissance(2,i-1);
    end;
    bin_to_dec:=dec;
end;

procedure choisir (VAR c:integer; x:integer);

Begin
	writeln('1. Conversion de décimal en binaire');
	writeln('2. Conversion de binaire en décimal');
	writeln('3. Quitter');
	writeln;
	writeln('Donner votre choix:__');
	readln(c);

	If (c=1) then begin
		saisir(x);
		 dec_to_bin(T,k,x);
    	afficher(T,k,x);
    end;

    If (c=2) then begin
    	saisir(x);
    	writeln(bin_to_dec(x));
    end;

    If (c=3) then halt;

end;

begin
	choisir(c,x);




end.