Паскаль

Дано целое число в диапазоне 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.