INICIO
 i<-1;
 Factorial<-1;
 MIENTRAS(i<=N)
  Factorial<-Factorial*i;
  i<-i+1;
 FIN_MIENTRAS 
 ESCRIBIR("El valor de N:",N," su factorial es: ",Factorial)
FIN