2

[code:1:c77cb4e6d5]if ipart(A/2)=A/2
then

code...

else

code...

end if[/code:1:c77cb4e6d5]

il suffit de tester si le nombre est divisable par 2