Conversion 10-2

program conversion102;
uses wincrt;
type
tab=array[1..100] of integer;
var
n,c:integer;
t:tab;
procedure saisir(var n:integer);
begin
repeat
write('n=');
readln(n);
until(n>0);
end;
procedure conv102(var t:tab;var c:integer;n:integer);
begin
c:=0;
repeat
c:=c+1;
t[c]:=n mod 2;
n:=n div 2;
until(n=0);
end;
procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:= n downto 1 do
write(t[i]);
end;


begin
saisir(n);
conv102(t,c,n);
affiche(t,c);
end.

Merci Beaucoup Madame