Составить программу выводящую меню на неделю - Pascal

Формулировка задачи:

Запросите у пользователя No дня недели и выведите меню на этот день. Рекомендуемый экран Введите No дня недели - > 3 Среда – Завтрак овсянка, чай, бутерброд Обед борщ, гулящ, салат, Ужин рис, сосиски, чай

Решение задачи: «Составить программу выводящую меню на неделю»

Листинг программы

program pr;
 
var
  x: integer;
 
begin
  writeln('Введите номер дня недели');
  readln(x);
  case x of 
    1: writeln('Понедельник-Блюда пиши сам');
    2: writeln('Вторник-Блюда пиши сам');
    3: writeln(' Среда-Завтрак овсянка, чай, бутерброд. Обед борщ, гулящ, салат. Ужин рис, сосиски, чай');
    4: writeln('Четверг-Блюда пиши сам');
    5: writeln('Пятница-Блюда пиши сам');
    6: writeln('Суббота-Блюда пиши сам');
    7: writeln('Воскресенье-Блюда пиши сам');
  end;
end.

Объяснение кода листинга программы

Объявляется переменная x типа integer, которая будет хранить номер дня недели.
Выводится сообщение Введите номер дня недели.
Вводится значение для переменной x с помощью функции readln.
Происходит проверка значения переменной x с помощью конструкции case of, где проверяется номер дня недели.
Если x равно 1, выводится сообщение Понедельник-Блюда пиши сам.
Если x равно 2, выводится сообщение Вторник-Блюда пиши сам.
Если x равно 3, выводится сообщение Среда-Завтрак овсянка, чай, бутерброд. Обед борщ, гулящ, салат. Ужин рис, сосиски, чай.
Если x равно 4, выводится сообщение Четверг-Блюда пиши сам.
Если x равно 5, выводится сообщение Пятница-Блюда пиши сам.
Если x равно 6, выводится сообщение Суббота-Блюда пиши сам.
Если x равно 7, выводится сообщение Воскресенье-Блюда пиши сам.