Module Module1
Sub Main()
Dim dollars As Double
Dim rubles As Double
Console.Write("Enter the amount of dollars you want to exchange: ")
dollars = Double.Parse(Console.ReadLine())
Dim bankRates As New Dictionary(Of String, Double)
Dim bankCount As Integer
Console.Write("Enter the number of banks in the city: ")
bankCount = Integer.Parse(Console.ReadLine())
For i = 1 To bankCount
Console.Write("Enter the name of Bank " & i & ": ")
Dim bankName As String = Console.ReadLine()
Console.Write("Enter the buying rate of " & bankName & ": ")
Dim buyingRate As Double = Double.Parse(Console.ReadLine())
Console.Write("Enter the selling rate of " & bankName & ": ")
Dim sellingRate As Double = Double.Parse(Console.ReadLine())
bankRates.Add(bankName, buyingRate)
Next
Dim maxRate As Double = Double.MinValue
Dim bestBank As String = ""
For Each kvp As KeyValuePair(Of String, Double) In bankRates
Dim rate As Double = dollars * kvp.Value
If rate > maxRate Then
maxRate = rate
bestBank = kvp.Key
End If
Next
rubles = dollars * bankRates(bestBank)
Console.WriteLine("The best bank to exchange dollars to rubles is " & bestBank)
Console.WriteLine("You will get " & rubles & " rubles")
End Sub
End Module