Algorithme sur TI-89

Bonjour,

Je suis en 1èreS et je dois programmer sur ma calculatrice l'algorithme suivant :

PROGRAM:DES
Prompt N
0->S
For(I,1,N)
entAléat(1,4)->A
If A=4
Then
S+1->S
End
End
Disp S/N
Disp S/N-1/4

Pourriez-vous le traduire pour que je puisse le programmer sur ma calculette, s'il vous plait :)