Дано целое число K. 1 — «плохо», 2 — «неудовлетворительно», 3 — «удовлетвори- тельно», 4 — «хорошо», 5 — «отлично». Если K не лежит в диапазоне 1–5, то вывести строку «ошибка» — Pascal(Паскаль)

Program Case2;

Var
  x: Integer;

Begin
  ReadLn(x);
  Case x Of
    1:
      WriteLn('«плохо»');
    2:
      WriteLn('«неудовлетворительно»');
    3:
      WriteLn('«удовлетворительно»');
    4:
      WriteLn('«хорошо»');
    5:
      WriteLn('«отлично»')
  Else
    WriteLn('«ошибка»');
  End;

End.