n=input("n = ")
t=0
for a=2:(n-1)
    r=reste(a,n)
    m=r
    for k=2:n
        r=reste(m*r,n)
    end
    if m~=r then 
        afficher("pas pseudopremier pour "+string(a))
        t=1
    end
end
if t==0 then afficher("pseudopremier");end