program Test; var DayOfWeek: integer; begin Writeln(\'Введите номер дня недели:\'); Readln(DayOfWeek); case DayOfWeek of //0 пропускаем. 1:writeln (\'Понедельник.\'); 2:writeln (\'Вторник.\'); 3:writeln (\'Среда.\'); 4:writeln (\'Четверг.\'); 5:writeln (\'Пятница.\'); 6:writeln (\'Суббота.\'); 7:writeln (\'Воскресенье.\'); end;end.