Решение задач по теме "Оператор выбора Case в Pascal"
Решение задачи №2
program two;
var k:integer;
begin
writeln('Введите число в диапазоне 1 - 5');
readln(k);
case k of
1: writeln('Плохо');
2: writeln('Неудовлетворительно');
3: writeln('удовлетворительно');
4: writeln('Хорошо');
5: writeln('Отлично');
else writeln('Ошибка')
end;
end.