Написать программу которая по введённому значению оценки (2-5) выводит название этой оценки (2-неудовлетворительно, 3-удовлетворительно, 4-хорошо, 5-отлично).

Var  Rating :integer;
begin
  readln(Rating);  case Rating of    2: writeln('Неудовлетворительно');    3: writeln('Удовлетворительно');    4: writeln('Хорошо');    5: writeln('Отлично');  end;
end.