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

[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.

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

[SwlR]

To: volvo

И тот, что ты привлёл выше, тоже неправильный.

Объясни мне, если массив [0 .. 6], то как возможна следующая строчка:

 if day = 0 then day := 7;