по решению сформулировать условие задачи
Var X:2..5;
Begin
WriteLn('Введите оценку: ');
ReadLn(X);
Case Х Of
2: Write('неудовлетворительно');
3: Write('удовлетворительно');
4: Write('хорошо');
5: Write('отлично')
end;
End.

Дано число Х в интервале от 2 до 5. Нужно написать программу (с помощью оператора case), которая при вводе числа Х выдавала информацию об оценке.