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