begin
  var arr: array of string := ('ПН', 'ВТ', 'СР', 'ЧТ', 'ПТ', 'СБ', 'ВС');
  var num := ReadLnInteger('Введите число от 1 до 7:');
  WriteLn('Результат: ', num in [1..7] ? arr[Pred(num)] : 'Упс..ошибочка :(');
end.