Sub Main()
        Dim a(10) As Integer
        Dim n, i, max As Integer

        Console.Write("Podaj liczbê elementów ")
        n = Console.ReadLine()

        For i = 1 To n
            Console.Write("Podaj element ")
            a(i) = Console.ReadLine()
        Next i
        max = a(1)
        For i = 2 To n
            If a(i) > max Then max = a(i)
        Next i
        Console.WriteLine("maksymalny= " & max)

        Console.ReadKey()
    End Sub