Разработать программу вывода названия дней недели - Pascal ABC

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

Разработать программу вывода названия дней недели (понедельник вторник и тд.) Если он задан целым числом от 1 до 7

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

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

readln(n);
case n of
1:write('понедельник');
2:write('вторник');
3:write('среда');
4:write('четверг');
5:write('пятница');
6:write('суббота');
7:write('воскресенье');
else write('Такого дня нет');
end;

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

Программа начинается с чтения значения переменной n с помощью функции readln(). Значение n не определено в данном контексте, но предполагается, что это целое число от 1 до 7, поскольку в случае используется конструкция case n of.
В операторе case значение переменной n сравнивается со значениями от 1 до 7. Если значение n равно 1, то выполняется блок кода when 1, и выводится строка понедельник с помощью функции write().
Если значение n равно 2, то выполняется блок кода when 2, и выводится строка вторник с помощью функции write().
Аналогично для остальных дней недели (3-7) определяются соответствующие блоки кода when и выводятся соответствующие строки.
Если значение n не соответствует ни одному из указанных значений (от 1 до 7), то выполняется блок кода else, и выводится строка Такого дня нет с помощью функции write().
Конец программы.