---

5
Sub Task5()
    Dim v1 As Double, t1 As Double, v2 As Double, t2 As Double
    Dim s1 As Double, s2 As Double
    
    v1 = InputBox("Введите скорость 1-го пешехода:")
    t1 = InputBox("Введите время 1-го пешехода:")
    v2 = InputBox("Введите скорость 2-го пешехода:")
    t2 = InputBox("Введите время 2-го пешехода:")
    
    s1 = v1 * t1
    s2 = v2 * t2
    
    If s1 > s2 Then
        MsgBox "Первый прошел больше. Расстояние: " & s1
    ElseIf s2 > s1 Then
        MsgBox "Второй прошел больше. Расстояние: " & s2
    Else
        MsgBox "Они прошли одинаково: " & s1
    End If
End Sub

6 
Sub Task6()
    Dim s1 As Double, t1 As Double, s2 As Double, t2 As Double
    Dim v1 As Double, v2 As Double
    
    s1 = InputBox("Введите расстояние 1-го:")
    t1 = InputBox("Введите время 1-го:")
    s2 = InputBox("Введите расстояние 2-го:")
    t2 = InputBox("Введите время 2-го:")
    
    v1 = s1 / t1
    v2 = s2 / t2
    
    If v1 > v2 Then
        MsgBox "Скорость первого выше: " & v1
    ElseIf v2 > v1 Then
        MsgBox "Скорость второго выше: " & v2
    Else
        MsgBox "Скорости равны: " & v1
    End If
End Sub

17 
Sub Task17()
    Dim a As Double, b As Double, c As Double
    a = InputBox("Введите a:")
    b = InputBox("Введите b:")
    c = InputBox("Введите c:")
    
    If a < b And b < c Then
        MsgBox "Верно"
    Else
        MsgBox "Неверно"
    End If
End Sub

15 
Sub Task15()
    Dim a As Double, b As Double, c As Double
    Dim maxVal As Double
    
    a = InputBox("Введите первое число (a):")
    b = InputBox("Введите второе число (b):")
    c = InputBox("Введите третье число (c):")
    
    If a > b Then
        If a > c Then
            maxVal = a
        Else
            maxVal = c
        End If
    Else
        If b > c Then
            maxVal = b
        Else
            maxVal = c
        End If
    End If
    
    MsgBox "Наибольшее число: " & maxVal
End Sub