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

Pascal

var   k,a : integer;
   begin 
readln (k);
 a := k mod 7;
 case a of 
1 : writeln (k,' Понедельник');
 2 : writeln (k,' Вторник');
 3 : writeln (k,' Среда');
 4 : writeln (k,' Четверг');
 5 : writeln (k,' Птница'); 
6 : writeln (k,' Суббота');
 0 : writeln (k,' Воскресенье');
  end;
end.