очень надо, помогите прошу

 

Дано целое число К. Вывести строку-описание оценки, соответствующей числу К (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.