/*= Ex00  n!¤Î·×»» ==============*/
#include "pseudo.h"
/*===============================*/
FUNCTION  Main()
VARIABLE
    INTEGER n, i;
    REAL    fact;
BEGIN
    LOOP
        InputInt( n);

        IF (n EQL 0)
            EXITLOOP;
        ENDIF

        fact= 1.0;
        FOR (i, 1, n)
            fact= i*fact;
        ENDFOR

        WriteString("1*2*...*n=");
         WriteReal( fact); WriteLn;
    ENDLOOP
ENDFUNC
/*===============================*/