Create sub Programa,calcular factorial