n=1;R=1
N=input("N =")// N ni multiple de 3 ni multiple de 5
while reste(R,N)~=0
    n=n+1;R=1+10*R
end
afficher("N = " + string(N))
message="R ="+string(R)+" pour n ="+ string(n)
afficher(message)