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

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.