Паскаль дано целое число в диапазоне 1 - 10. вывести строку - словесное описание соответствующей оценки (1-2 плохо, 3-4 -неудовлетворительно, 5-6 - удовлетворительно, 7-8 - хорошо, 9-10 отлично.

Program v1;var a:integer;begin  readln(a);  case a of    1, 2 : writeln ('Плохо');    3, 4 : writeln ('Неудовлетворительно');    5, 6 : writeln ('Удовлетворительно');    7, 8 : writeln ('Хорошо');    9, 10 : writeln ('Отлично');  end;end.