// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Arr('понедельник','вторник','среда','четверг','пятница',
'суббота','воскресенье');
Writeln('Это ',s[ReadInteger-1])
end.
Пример
1
Это понедельник