Дан порядковый номер дня года( ОТСЧЕТ идет с 1-ого января) Требуется вывести номер дня...

Question

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

Answer 1

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