\START82\
\COMMENT=jcm 12/03
\NAME=SUITEA
\FILE=D:\WINLINK\SAV_JC~1\SUITEA.82P
:ClrHome
:Disp "SUITE ARITHM"
:Input "1ER TERME U1=",U
:Input "RAISON R=",R
:Input "TERME NO=",N
:Disp U+(N-1)*R
:Disp "SOMME"
:Input "NB TERMES=",N
:Disp N*(U+U+(N-1)*R)/2
\STOP82\
