Написать программу на языке Паскаль, ставящую верное склонение исчисляемого после введенной цифры. Сделать на примере

Чтобы верно употребить слово РУБЛЬ следует сначала получить самый младший разряд числа. В зависимости от его значения необходимо вывести соответствующий результат. Однако в случае равенства 2,3,4 следует также проверить на вхождение всего числа в диапазон [11..19], ведь для него РУБЛЬ должен идти в родительном падеже.

Program pr22;
Uses
crt;
Var
x,ox: integer;
Begin
clrscr;
write('Введите число: ');
readln(x);
ox:=x mod 10;
case ox of
0,5,6,7,8,9: writeln(x,' рублей');
1: writeln(x,' рубль');
2,3,4:
begin
if (x in [11..19]) then writeln(x,' рублей') else writeln(x,' рубля');
end
end;
readln;
End.