4. Написать программу, которая после введенного с клавиатуры числа (в диапа-зоне от 1 до 99), обозначающего денежную единицу, дописывает слово "копейка" в правильной форме. Например, 5 копеек, 41 копейка и т.д. В VBS

Предыдущий
вопрос Следующий
вопрос

Dim num
num = InputBox("Введите число от 1 до 99")

If num = 1 Or num = 21 Or num = 31 Or num = 41 Or num = 51 Or num = 61 Or num = 71 Or num = 81 Or num = 91 Then
MsgBox(num & " копейка")
ElseIf (num >= 2 And num <= 4) Or (num >= 22 And num <= 24) Or (num >= 32 And num <= 34) Or (num >= 42 And num <= 44) Or (num >= 52 And num <= 54) Or (num >= 62 And num <= 64) Or (num >= 72 And num <= 74) Or (num >= 82 And num <= 84) Or (num >= 92 And num <= 94) Then
MsgBox(num & " копейки")
Else
MsgBox(num & " копеек")
End If