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