Ответы и объяснения

2013-11-21T17:51:35+00:00
var   n,k: integer; begin   write('Введите сумму (копейки не предлагать!): ');   readln(n);   write(n,' рубл');   case n mod 100 of     11..14: writeln('ей.');     else     case n mod 10 of       1: writeln('ь.');       2..4: writeln('я.');       0,5..9: writeln('ей.');     end;   end;   readln; end.