По заданному числу вывести РУБЛЕЙ
Например ввел число 5 после Enter вышло 5 рублей.

var   s: integer;  t: string;begin    write('Введите сумму: ');   read(s);   case (s mod 10) of    1: t:=' рубль';    2..4: t:=' рубля';    0, 5..9: t:=' рублей';    else t:='no';  end;    write(s,t);end.---------------Пример:--------------Введите сумму: 55 рублейВведите сумму: 9191 рубль