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