Ecriture fonctions en pascal

Il vaudrait mieux que tu poursuives ton raisonnement là où tu l'as commencé (ici).
Enfin moi je dis ça...

voici ce que j'ai cherché pour le CAS1

procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}

BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;