При выводе числовой информации с поясняющим текстом часто возникает проблема согласования выводимого значения и окончания поясняющего текста. Например, в зависимости от числового значения, поясняющий текст к денежной величине может быть «рубль», «рублей» или «рубля». Очевидно, что окончание поясняющего слова определяется двумя последними цифрами числа, что отражено в таблице.
2 последние цифры числа
Поясняющий текст
*0, *5, *6, *7, *8, *9, 11, 12, 13, 14
рублей
*1
рубль
*2, *3, *4
рубля
На место звездочки можно подставить любую цифру.
Составьте программу, которая обеспечивает ввод числа и вывод числа с поясняющим текстом (например, вводится число 35, выводится 35 рублей).
паскаль

varn,b: integer;beginwriteln ('vvel n');read (n);b:= n mod 10;if b=1 then writeln (n,'рубль');if (b>1) and (b<5) then writeln (n,'рубля')elsewriteln  (n,'рублей');end.