Ecriture de fonctions et procedures

Bonjour

s'il vous plait j'aimerai que vous m'aidez à resoudre ces exercices:
travail à faire
En supposant qu'un type nbre binaire peut être definit de la maniere suivante:
Type nombrebinaire =array[1..10] of integer; implementer une procédure ou une fonction pour chaque cas ci-dessous:

CAS 1:decomposition d'1 decimal en base 2
ecrire une procedure decompbin(nbre:integer ;var nbrebin :Nombrebinaire); qui prend 1 nbre decimal et le convertis en base 2


CAS 2:conversion d'un nbre binaire en base 10
ecrire une fonction conversionbin(var nbbin :nbrebinaire):integer; qui prend un nbre binaire et retourne sa valeur decimale.


CAS 3:complement d'1 nbre bionaire à 2
ecrire une procedure complement2(var nbbin: Nombrebinaire); qui prend un nbre binaire et le complemente à 2.

CAS 4:complement d'1 nbre binaire à 1
meme chose qu'au CAS 3.