// Programa: Sumarn

// Autores: Lidia y Pablo

// Descripción: Este programa calcula la suma de los n primeros

// números naturales

 

Program Sumarn

 

      Method Main()

 

            Var m As Integer

            Var n As Integer

            Var suma As Integer

            ConsoleWriteLine("Vamos a calcular la suma de los n primeros números naturales")

            ConsoleWriteLine("1+2+3+4+ ... +(n-1)+n")

            n=ConsoleReadInt("Introduce el valor de n = ",True)

            For m=1 To n

                  suma=suma+m

            Next

            ConsoleWrite("La suma es igual a "+suma)

           

 

      End Method

 

End Program