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