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

Вот на Pascal (Console Aplication) : var      a:Integer; begin  Writeln('Vvedite nominal valuti');  Readln(a);  case (a mod 10) of    1:    if (a=11) then      Writeln('Y Vas est ',a,' rublei')    else    begin      Writeln('Y Vas est ',a,' rubl');    end; 2,3,4:    if (a=12) or (a=13) or (a=14) then    Writeln('Y Vas est ',a,' rublei')    else    begin    Writeln('Y Vas est ',a,' rublya');    end; 0,5,6,7,8,9:    if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then    Writeln('Y Vas est ',a,' rublei')    else    begin    Writeln('Y Vas est ',a,' rublei');    end;  end; Readln; end.