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

[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: klem4

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

Как какую? Размерность массива [0..6] и поэтому, если "остаток от деления 0 то мы присваеваем 7", а макс. позиция массив а 6! Т.е. из такой позиции в массиве не содержится. Я что не прав?

To: volvo
Я доказал, что программа работает неверно, разве не так?