{* Задача316 *}

REM basic

' Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Рубль» в правильной форме. Например, 5 рублей, 21 рубль и т. д.


CLS
INPUT rub
PRINT rub;
Select Case rub Mod 10
        Case 1: PRINT "рубль"
        Case 2 To 4:
        If rub > 20 Or rub < 10 Then
        PRINT "рубля"
        Else
        PRINT "рублей"
        End If
        Case 5 To 9: PRINT "рублей"
        Case 0: PRINT "рублей"
End Select
End