написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 1 до 999),...

Question

написать прогпамму, которая после введенного с клавиатуры числа(в диапозоне от 1 до 999), обозначающий денежную еденицу, дописывал слово "рубль". Например 12 рублей, 2 рубля, 1 рубль и т.п. (Geany, pascal)

Answer 1

program test;
var number: integer;
begin
   write('Enter the number: ');
   readln(number);

   case number mod 10 of
      1: writeln(number, ' рубль');
      2, 3, 4: writeln(number, ' рубля');
   else
      writeln(number, ' рублей')
   end;

   readln;
end.