//PascalABC.NET v3.3 1633
begin
var days: array [1..7] of string:=('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n:=ReadLnInteger('Введите номер дня: ');
writeln(n+' день — ' + days[n mod 7]);
end.
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.