Написать программу, которая после введенного с клавиатуры числа (в диапозоне от 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.