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