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

Хотя не только..

Немного не правильно*

Procedure ABC(N:integer);BeginCase N of0:WriteLn('Понедельник');1:WriteLn('Вторник');2:WriteLn('Среда');3:WriteLn('Четверг');4:WriteLn('Пятница');5:WriteLn('Суббота');6:WriteLn('Воскресенье');EndEnd;VarA:integer;BeginWriteLn('Введите число месяца');ReadLn(A);ABC((A-1) mod 7);End.

Procedure week(n:integer);BeginCase n of 1:WriteLn('Понедельник'); 2:WriteLn('Вторник'); 3:WriteLn('Среда'); 4:WriteLn('Четверг'); 5:WriteLn('Пятница'); 6:WriteLn('Суббота'); 7:WriteLn('Воскресенье');EndEnd;Var d:integer;BeginWrite('d = ');ReadLn(d);week((d-1) mod 7+1);End.Пример:d = 14Воскресенье