begin
  var DayOfWeek := new string[7]('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье');
  var d := Pred(ReadLnInteger('Введите число от 1 до 7:'));
  WriteLn('Результат: ', d in [0..4] ? DayOfWeek[d] + ' - рабочий день :(' : d in [5..6] ? DayOfWeek[d] + ' - выходной день :)' : 'Упс...произошла ошибка :(');
end.