Поделитесь своими знаниями, ответьте на вопрос:
Надо, прошу дано целое число к. вывести строку-описание оценки, соответствующей числу к (1- "плохо" , 2- "неудовлетворительно" , 3 - "удовлетворительно" , 4- "хорошо" , 5- "отлично". если к не лежит в диапазоне 1-5 , вывести "ошибка".
можно ещё использовать оператор выбора case
program pr; uses crt; var k: integer; beginwriteln('введите k'); readln(k); if (k> =1) and (k< =5) then begincase k of1: writeln('плохо'); 2: writeln('неудовлетворительно'); 3: writeln('удовлетворительно'); 4: writeln('хорошо'); 5: writeln('отлично'); end; endelse writeln('ошибка'); readln; end.