[Tronix]

(с) google

var 
  n: integer;
  m: integer; ( остаток от деления n на 100 (последние две цифры) }
  r: integer; { остаток от деления n на 10 (последняя цифра) } 
begin
 ClrScr;
 Writeln('Введите целое число (от 1 до 999)');
 Readln(n);
 Write(n,' ');
  if n>100 then 
   m := n mod 100;
  if (m >= 11) and (m <= 14) then
   Writeln('рублей') else 
    begin
       r:=n mod 10; 
    case r of
    0, 5 .. 9: writeln('рублей');
    1: writeln ('рубль');  
    2..4: writeln ('рубля');
  end; 
 end; 
 readln; 
end.