for n=1000:9999
    d=reste(n,10);
    c=reste((n-d)/10,10);
    b=reste((n-10*c-d)/100,10);
    a=(n-100*b-10*c-d)/1000;
    if 1000*(b+d)+100*(d+c)+10*(a+b)+c+a==n then
        afficher("n = " + string(n));
    end
end