Определить каким днём недели будет K-ый день года, Маленькая задачка Опции

[_SOAD_]

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

[n4oJllI]

program day;
uses crt;
const
  week: array[1..7] of string[10] = ('Monday','Tuesday','Wensday','Thursday','friday','satuday','sunday');

var
  n,d:integer;

begin         clrscr    ;
write('nr ?? ');  readln(n);
d:=(n mod 7);
if d<>0 then writeln(week[d])
else writeln(week[7]);
readln;
end.