День, месяц, год Опции

[SwlR]

Ввести день, месяц, год; определить какой это день недели


Есть программа, которая при вводе числа (целого), определяет на какой день недели приходится n-й день невисокосного года. 1-е число - ПН.

program data;
uses crt;
var
i,n:integer;
begin
clrscr;
write ('vvedi n= ');
readln (n);
i:=n mod 7;
case i of
1:writeln ('Monday');
2:writeln ('Tuesday');
3:writeln ('Wensday');
4:writeln ('Thursday');
5:writeln ('Friady');
6:writeln ('Saturday');
7,0:writeln ('Sanday');
end;
readln;
end.

А как разобраться с этой задачей?

[klem4]

По поводу правильности работы уж не знаю ... но какую связь ты видишь между переменной day и массивом [0..6] &

unction dayofweek(dat: tdate): byte;
var
  sum : real;
  day : byte;
  buf : longint;
begin
  buf := numofday(dat);
  buf := buf+4;
  day := buf mod 7;
  if day = 0 then day := 7;
  dayofweek := day;
end;