Sub Procedura()

Dim iTab(1 To 3) As Integer

iTab(1) = InputBox("Podaj pierwsza; liczbe;")
iTab(2) = InputBox("Podaj druga; liczbe;")
iTab(3) = InputBox("Podaj trzecia; liczbe;")

Range("C2") = WorksheetFunction.Min(iTab)
Range("C3") = WorksheetFunction.Median(iTab)
Range("C4") = WorksheetFunction.Max(iTab)

End Sub

Sub Sort(ByRef iTab() As Integer)

Dim j As Integer
Dim i As Integer
Dim iDummy As Integer
    
For j = UBound(iTab) - 1 To LBound(iTab) Step -1
    For i = LBound(iTab) To j
        If iTab(i) > iTab(i + 1) Then
            vDummy = iTab(i)
            iTab(i) = iTab(i + 1)
            iTab(i + 1) = vDummy
        End If
    Next i
Next j

End Sub

Sub Procedura()

Dim iTab(1 To 3) As Integer
Dim w As Long: w = 2

iTab(1) = InputBox("Podaj pierwsza; liczbe;")
iTab(2) = InputBox("Podaj druga; liczbe;")
iTab(3) = InputBox("Podaj trzecia; liczbe;")

Sort iTab

For i = LBound(iTab) To UBound(iTab)
    Cells(w, 3).Value = iTab(i)
    w = w + 1
Next i

End Sub

Sub zadanie_7()
Dim a As Integer, b As Integer, c As Integer

a = InputBox("Podaj pierwszą liczbę")
b = InputBox("Podaj drugą liczbę")
c = InputBox("Podaj trzecią liczbę")

If a < b And a < c Then
    Range("C2") = a
        ElseIf a > b And a > c Then
            Range("C4") = a
                Else
                    Range("C3") = a
                        End If

If b < a And b < c Then
    Range("C2") = b
        ElseIf b > a And b > c Then
            Range("C4") = b
                Else
                    Range("C3") = b
                        End If

If c < a And c < b Then
    Range("C2") = c
        ElseIf c > a And c > a Then
            Range("C4") = c
                Else
                    Range("C3") = c
                        End If
End Sub