Решить задачки, используя оператор выбора (case):1. Ввести оценку (5, 4, 3, 2)

// 2.

function RuEnding(a: integer): string;

begin

 Result := 'ек';

 if not ((a mod 100) in [11..14]) then

   case a mod 10 of

     1: Result := 'йка';

     2..4: Result := 'йки';

   end

end;

begin

 var a := ReadInteger();

   Writeln(a, ' копе' + RuEnding(a))

end.

1-ая программка

var x:integer;

begin

 readln(x);

 case x of

   2: writeln('Неудовлетворительно');

   3: writeln('Удовлетворительно');

   4: writeln('Хорошо');

   5: writeln('Отлично');

 end;

end.

2-ая программа

var x:integer;

begin

 readln(x);

 if not x in [1..99] then

   writeln('[ERROR]');

 case x of

 10..20,30,40:write(x,' копеек');

 else

  case x mod 10 of

  1:write(x,' копейка');

  2..4:write(x,' копейки');

  else write(x,' копеек');

  end;

 end;

end.