Составить программу определения дня недели по номеру дня года. считая, что 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.