Дан порядковый номер дня года( отсчет идет с 1-ого января) требуется вывести номер дня недели этого дня если 1 января-понедельник. (запрещено использование команды if) формат входных данных вводится номер дня года-целое число k(1

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