Pascal Склонение

[Mathian]

Всем Хай!
Вот вам маленький пример склонений.
В данном примере нужно ввести число, а программа подставит: "Рубль", "Ру***" или "Рублей"​

Код:

Program Primer;
	uses crt;
var a, b, n :integer;
begin
	writeln('Chislo:');
    readln(n);
    a:=n div 10;
	b:=n mod 10;
   if n<=20 then
    begin
     case n of
      1:    writeln(n,' rubl');
      2..4: writeln(n,' rublya');
      else  writeln(n,' rubley');
     end;
    end
   else
    begin
     case b of
      1:    writeln(n,' rubl');
      2..4: writeln(n,' rublya');
      else  writeln(n,' rubley');
     end;
    end;
readkey;
end.