Function zad1(N0 As Single, p As Byte, f As Byte) As Single
'N0 = InputBox("Podaj początkową liczbę cząstek")
'p = InputBox(" Podaj stopień przereagowania")
'f = InputBox("podaj średnią funkcyjność monomerów")
If Not IsNumeric(N0) Then
MsgBox ("Liczba?")
End If
If Not IsNumeric(p) Then
MsgBox ("Liczba?")
End If

If Not IsNumeric(f) Then
MsgBox ("Liczba?")
End If
If N0 <= 0 Or f <= 0 Then
MsgBox ("Zakres?")
End If
If p <= 0 Or p > 1 Then
MsgBox ("Zakres?")
End If
'N = (N0 * (2 - p * f)) / 2


End Function