Question

Паскаль, оператор выбора.
Помогите, пожалуйста, исправить ошибку в задании:
Дано натуральное число N (N<20), определяющее сумму денег в рублях. Дать для этого числа наименование: "рубль", "рубля", "рублей".

Answer 1

var n:integer;beginread(n);case n of1:writeln('рубль');2..4:writeln('рубля');5..20:writeln('рублей');elsewriteln('Условия не выполняется');end;end.