составить программу определения дня недели по номеру дня года. считая, что 1 января- понедельник.

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