20+10 поинтов!!!!!!!Составьте процедуру вывода на экран названия дня недели по его порядковому номеру (1-понедельник, 2-вторник и т.д). С помощью этой процедуры выведите на экран, каким днем недели будет заданное число месяца, если месяц начинается с понедельника.

Procedure ABC(N:integer);
Begin
Case N of
0:WriteLn('Понедельник');
1:WriteLn('Вторник');
2:WriteLn('Среда');
3:WriteLn('Четверг');
4:WriteLn('Пятница');
5:WriteLn('Суббота');
6:WriteLn('Воскресенье');
End
End;

Var
A:integer;

Begin
WriteLn('Введите число месяца');
ReadLn(A);
ABC((A-1) mod 7);
End.