Дано целое число к. вывести строку – описание оценки, соответствующей числу к (2-«неуд.», 3-«уд.», 4-«хор.», 5-«отл.»). если к не лежит в диапазоне 2-5, то вывести строку «ошибка». умоляю

Объяснение:

program z;

var k:integer;

begin

readln(k);

if (k < 2) or (k > 5) then

writeln('ошибка');

if k = 2 then  

writeln('неуд.');

if k = 3 then  

writeln('уд.');

if k = 4 then  

writeln('хор.');

if k = 5 then  

writeln('отл.');

end.

case-это оператор выбора, при вводе значения, заданного этим оператором, совершается определенное действие.

program ppp;

var k:byte;

begin

writeln('введите k');

readln(k);

case k of

2:write('неудовлетворительно');

3:write('удовлетворительно');

4:write('хорошо');

5:write('отлично')

else

write('ошибка');

end;

end.