дан порядковый номер дня года( ОТСЧЕТ идет с 1-ого января) Требуется вывести номер дня недели этого дня если 1 января-понедельник. (Запрещено использование команды If)
Формат входных данных
вводится номер дня года-целое число k(1<или равно k < или равно 365)

var n, a, i: integer;   ar: array[0..6]of string = ('воскресенье', 'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота');  begin   readln(n);   a := n mod 7;   write(ar[a]); end.