Дано целое число в диапазоне 1–7. Вывести строку — название дня недели, соответствующее данному числу — Pascal(Паскаль)

Program Case1;

Var
  x: Integer;

Begin
  ReadLn(x);
  Case x Of
    1:
      WriteLn('Понедельник');
    2:
      WriteLn('Вторник');
    3:
      WriteLn('Среда');
    4:
      WriteLn('Четверг');
    5:
      WriteLn('Пятница');
    6:
      WriteLn('Суббота');
    7:
      WriteLn('Воскресенье');
  End;

End.