Известно, что 1 число месяца-денек недели среда. Составить программку, которая после

Var d, n: integer;
begin
write('Номер денька недели первого числа месяца (1..7): ');
readln(d);
write('Денек месяца (1..31): ');
readln(n);
write('Это ');
case (n + d - 2) mod 7 of
0: write('понедельник');
1: write('вторник');
2: write('среда');
3: write('четверг');
4: write('пятница');
5: write('суббота');
6: write('воскресение')
end;
readln
end.