Паскаль Дано целое число в диапазоне 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.
Писал с отступами, а оно в одну строку всё запихнуло :((