FmA93 : tu as visiblement fait la même erreur que moi au début. Regarde bien l'algo, et tu verras que A et B ne varient pas (si on fait abstraction de l'initialisation qui est du code mort).
Dans la boucle, on fait toujours
A := 2000 + 50
et
B := 2000 * 1.023
Tu peux refaire le calcul autant de fois que tu voudras, tu trouveras à chaque fois que A vaut 2050 et B vaut 2046, comme dit par COS[A-B].
Lorsque j'ai dis que le sujet était étrange, je me suis effectivement demander s'il n'y avait pas deux typos énormes dans l'énoncé. Faire
A := A + 50
et
B := B * 1.023
dans les boucles serait effectivement plus intéressant (et la formule de droite finit alors par l'emporter). Mais l'affichage reporté à la fin laisse penser qu'on a besoin de savoir qu'une seule valeur pour A et B. Bref… que de contradictions (que j'aurais voulue ne pas dire pour ne pas embrouiller l'OP encore plus). En tout cas, écrit tel quel, c'est bien A=2050 > 2046=B.