Известно, что 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.