Вотprogram pr;var a:integer;beginwrite(Введите номер дня недели: );readln(a);case a of1: writeln(Понедельник);2: writeln(Вторник);3: writeln(Среда);4: writeln(Четверг);5: writeln(Пятница);6: writeln(Суббота);7: writeln(Воскресенье);else writeln(Такого дня недели нет)end;end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.