как то так)
Объяснение:PascalABC.NET 3.7
###
var n: integer;
n := TryRead(n) ? n : 0;
case n of
1..5: Pr('Рабочий день');
6: Pr('Суббота');
7: Pr('Воскресенье');
else Pr('Такого дня не существует')
end
