Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «рубль» в правильной форме.
Например, 12 рублей, 21 рубль и т.д..
вот код.но проблема в том что когда пишешь 11,12,..14 пишет не рублей а рубля
Var
n: Integer;
BEGIN
Repeat
Writeln('Введите число от 1 до 999: ');
Readln(n);
until (n<=1) and (n<=999);
Case n mod 10 of
1: Writeln(n,' рубль');
2..4: Writeln(n,' рубля');
0,5..9: Writeln(n,' рублей');
10,11..19: Writeln(n,'рублей');
end;
Readln
END.

возможный ответ к заданию по литературному чтению
Чудеса:
1) Днём и ночью кот ученый всё ходит по цепи кругом...
2) Леший бродит.
3) Русалка на ветвях сидит,
4) Па неведомых дорожках следы невиданных зверей.
5) Избушка на курьих ножках стоит без окон, без дверей.
6) Тридцать витязей прекрасных чредой на вод выходят ясных, и с ними дядька их морской.
7) Колдун несет богатыря.
8) В темнице там царевна тужит, а бурый волк ей верно служит.
9) Ступа с Бабою Ягой идёт, бредёт сама собой.
10) Там царь Кащей над златом чахнет.

возможный ответ к заданию по литературному чтению
Чудеса:
1) Днём и ночью кот ученый всё ходит по цепи кругом...
2) Леший бродит.
3) Русалка на ветвях сидит,
4) Па неведомых дорожках следы невиданных зверей.
5) Избушка на курьих ножках стоит без окон, без дверей.
6) Тридцать витязей прекрасных чредой на вод выходят ясных, и с ними дядька их морской.
7) Колдун несет богатыря.
8) В темнице там царевна тужит, а бурый волк ей верно служит.
9) Ступа с Бабою Ягой идёт, бредёт сама собой.
10) Там царь Кащей над златом чахнет.