[s0Creator]

Может так ? :

Код:

var
  r, r1, r2, r3, r4: integer;
begin
  writeln('1<r<9999 ');
  readln(r);

  r3 := r div 100;
  r4 := r3 mod 10;

  if (r3 > 0) then
  begin
    if (r3 > 4) and (r3 < 20) then
      write(r3, ' rublei ')
    else if (r4 = 1) then
      write(r3, ' rubl ')
    else if (r4 > 1) and (r4 < 5) then
      write(r3, ' rublya ')
    else
      write(r3, ' rublei ');
  end;

  r1 := r mod 10;
  r2 := r mod 100;

  if r2 > 0 then
  begin
    if ((r2 > 4) and (r2 < 20)) then
      writeln(r2, ' kopeek')
    else if ((r1 > 1) and (r1 < 5)) then
      writeln(r2, ' kopeiki')
    else if r1 = 1 then
      writeln(r2, ' kopeika')
    else
      writeln(r2, ' kopeek')
  end;

  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.