For(X,1,50)
0->P
For(N,1,3)
If nbrAléatEnt(1,2)=1
Then
P+1->P
Else
P-1->P
End
End
Disp "I:",X,"=",P
End