Imports System

Public Module Module1

    Function InputConsole(msg as String) as String

        console.writeline(msg)

        Return console.readline()

    End function

    Public Sub Main()

        dim n,min,max,moyen,ecart as double

        n= inputconsole("nombre de personne:")

        dim i,age(n) as byte

        For i=1 to n

            age(i)= inputconsole("age de personne."& i & "=")

        next

        min = age(1)

        For i = 2 To n

            If age(i) <= min Then

                min = age(i)

            End If

        Next

        max = age(1)

        For i = 2 To n

            If age(i) > max Then

                max = age(i)

            End If

        Next

        Dim tot As Double

        For i = 1 To n

            tot = tot + age(i)

        Next

        moyen = tot / n

        For i = 1 To n

            ecart = ecart + (age(i) - moyen) ^ 2

        Next

        ecart = (ecart / n) ^ (1 / 2)

    End Sub

End Module