Imports System

Public Module Module1

    Public Sub Main()

        Dim stopnum ,total, maximum,  carriagenum as decimal

        console.writeline("How many stops are there?")

        stopnum = console.ReadLine()

        Dim passenger((stopnum-1)) as integer

        For a = 0 to passenger.length-1

        Console.WriteLine("For stop " & (a+1)&" how many passengers got on/off?")

        Passenger(a)= console.ReadLine()

        next

        For b= 0 to passenger.length-1

        total = total + passenger(b)

        If total > maximum then 

            maximum = total 

        End if

        Next

    carriagenum = maximum / 50

    If maximum Mod 50 > 0 then 

        carriagenum = carriagenum + 1

    End if

    Console.writeline(carriagenum)

    End Sub

End Module