n=input("n = ")
r=reste(n,2851)
p=r
for k=1:7
    r=reste(r^2,2851)
    if ((k~=1)&(k~=5)) then
        p=reste(p*r,2851)
    end
end
afficher("n = "+ string(n))
afficher("reste="+string(p))