Составить программу которая по введеному номеру дня недели выводит на экран его название на Pascal

Пример программы на Pascal, которая выводит название дня недели по введенному номеру:

program DayOfWeek;

var
  dayNumber: integer;

begin
  writeln('Введите номер дня недели (от 1 до 7): ');
  readln(dayNumber);

  case dayNumber of
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота');
    7: writeln('Воскресенье');
  else
    writeln('Ошибка: неверный номер дня недели.');
  end;
  
end.

Эта программа позволяет пользователю ввести номер дня недели, а затем выводит соответствующее название этого дня на экран.