A=[8,21;3,8];
X=[1;0]
for k=1:10
    X=A*X;
    afficher([X(1,1),X(2,1)]);
end