/*== Ex11 ´Ø¿ô(function) =============*/
#include "pseudo.h"
/*------------------------------------*/
TYPE REAL
FUNC Factorial( INT n)
  VAR   INT  i;
        REAL fact;
  BEGIN
    fact= 1.0;
    FOR (i, 1, n)
        fact= i*fact;
    ENDFOR
  RETURN (fact);
  END
/*-----------------------------------*/
TYPE VOID
FUNC Output( REAL fact)
  VAR
  BEGIN
    WriteString("1*2*...*n=");
    WriteReal( fact); WriteLn;
  END
/*==================================*/
FUNCTION Main()
VARIABLE
    INT n; REAL fact;
BEGIN
    LOOP
        InputInt( n);

        IF (n EQL 0)
            EXITLOOP;
        ENDIF

        fact= Factorial( n);

        Output( fact);
    ENDLOOP
END
/*==================================*/