Programme sur calculatrice TS

[Stilinski]

Bonjour,
A l'aide d'un algorithme, je dois programmer ma calculatrice (Texas 83 Plus) mais j'ai beaucoup de mal, la calculatrice m'affiche des erreurs ou me donne des résultats incohérents :mur: . Est que vous pourriez m'aider SVP.

Variable
N, un entier positif
T, un entier positif
R, un entier positif
I et J, deux entiers positifs
P un réel
A un réel

Initialisation
N prend la valeur 600
T prend la valeur 0

Traitement
Pour J allant de 1 à 600
R prend la valeur 1
Pour I allant de 1 à 6
Si R=1
alors
P prend la valeur 75
sinon
P prend la valeur 50
fin de si A prend la valeur EntAlea(1,100)
Si A;)P
alors
R prend la valeur 1
sinon
R prend la valeur 0
Fin de boucle pour
Si R=1
alors
T prend la valeur T+1
Fin de boucle pour

Sortie
Afficher Proportion de réussite T/600