Определить каким будет К-й день года: субботой, воскресеньем или рабочим днем - PascalABC.NET

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

Дано целое число k(1<k<365). Определить каким будет К-й день года: субботой, воскресеньем или рабочим днем, если 1 января - понедельник.

Решение задачи: «Определить каким будет К-й день года: субботой, воскресеньем или рабочим днем»

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

var k:integer;
begin
writeln('Программа определяет день недели по количеству дней, прошедших от 01.01(понедельник)');
repeat
write('Введите количество дней от 1 до 365 k=');
readln(k);
until (k>0)and(k<366);
case k mod 7 of
0:write('воскресенье');
1:write('понедельник');
2:write('вторник');
3:write('среда');
4:write('четверг');
5:write('пятница');
6:write('суббота');
end;
end.

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

Введен код на языке PascalABC.Net
Объявлена переменная k типа integer
Выводится сообщение о задаче программы
Запускается цикл repeat-until для ввода корректного значения переменной k
В каждой итерации цикла выводится сообщение с предложением ввести количество дней от 1 до 365
После ввода значения переменной k выполняется проверка на корректность введенных данных (k>0 and k<366)
Если условие проверки выполняется, то выполняется операция mod 7 для определения дня недели по количеству дней
В зависимости от результата операции mod 7 выводится соответствующее сообщение о дне недели
После выполнения всех проверок и вычислений выполняется завершающий оператор end.