Imports System

imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        dim N as integer

        dim i as integer

        dim c as integer=0

        console.writeline("dammi un numero naturale")

        N=console.readline()

        while c<=N

            i=i+c

            c=c+1

        end while

        console.writeline("la somma dei primi numeri naturali è"&" "&i)

    End Sub

End Module