Sub lab()
Dim Zp1 As Integer, Zp2 As Integer, podatok1 As Double, podatok2 As Double, month1 As Integer, month2 As Integer
Zp1 = 5500
Zp2 = 7000
Do While Zp1 <= 20000
    Zp1 = Zp1 + 75
    podatok1 = Zp1 * 0.13
    month1 = month1 + 1
    Debug.Print "через " & month1 & " місяців " & " заробітна плата дорівнюватиме " & Zp1 & " а податок " & podatok1
Loop
Do While Zp2 <= 20000
    Zp2 = Zp2 + 80
    podatok2 = Zp2 * 0.13
    month2 = month2 + 1
    Debug.Print "через " & month2 & " місяців " & " заробітна плата дорівнюватиме " & Zp2 & " а  податок " & podatok2
Loop
    Debug.Print "Зарплата за 1-шу проф дорівнюватиме 20тис грн через " & month1 & " місяців" & " | " & "а за другу через " & month2
End Sub