Imports System.Math


Module Module1

    Sub Main()
        Dim x(),y() as Double
        Dim M%, i%
        et1:
        Console.WriteLine("M = ")
        M = Console.ReadLine
        If M < 2 Then GoTo et1
        ReDim x(M), y(M)
        For i=0 To M-1
        Console.Write("x("& i &")=",i)
            x(i) = Console.ReadLine
            Console.Write("y("& i &")=",i)
            y(i) = Console.ReadLine
        Next i

        Dim L() as Double
        ReDim L(M)
        For i = 0 To M-1
            L(i) = Math.Sqrt(Math.Pow(x(i),2) + Math.Pow(y(i),2))
        Next i

        Dim Min#, imin%
        Min=L(0) : imin = 0
        For i = 1 To M-1
        If L(i) < Min Then
        Min = L(i) : imin = i
        End If
        Next i
        Console.WriteLine("Min=L("& imin &")="&imin)

        Dim Max#, imax%
        Max = L(0) : imax = 0
        For i = 1 To M-1
            If L(i) > Max Then
                Max = L(i) : imax = i
            End If
        Next i
        Console.WriteLine("Max=L("& imax &")="&Max)

        Dim D() As Double
        ReDim D(M-1)
        For i = 0 To M-2
            D(i) = Math.Sqrt(Math.Pow(x(1) - x(i+1),2) + Math.Pow(y(1) - y(i+1),2))
        Next i
        Dim result As String = String.Join(", ",D)
        Console.WriteLine(result)
    End Sub

End Module