input "n" to n
e=0
for j=1 to n
	e=e+factorial(j)
endfor
?STR(e)
FUNCTION factorial
	PARAMETERS x
	f=1
	FOR i=1 TO x
	f=f*i
	ENDFOR
	RETURN f
endfunc





SET UDFPARMS TO reference
DIMENSION a[100]
n=0
DO citire WITH a,n
DO ordonare WITH a,n
DO afisare WITH a,n

PROCEDURE citire
	PARAMETERS a,n
	DIMENSION a[100]
	input "nr" to n
	FOR i=1 TO n
	input "valoare:" to a[i]
	ENDFOR
ENDPROC

PROCEDURE ordonare
	PARAMETERS a,n
	DIMENSION a[100]
	cod=0
	DO WHILE cod=0
		cod=1
		FOR i=1 TO n-1
			IF a[i]>a[i+1]
			aux=a[i]
			a[i]=a[i+1]
			a[i+1]=aux
			cod=0
			ENDIF
		ENDFOR
	ENDDO
ENDPROC

PROCEDURE afisare
	PARAMETERS a,n
	DIMENSION a[100]
	FOR i=1 TO n
	?a[i]
	ENDFOR
ENDPROC