Question

составьте программу, которая запрашивает номер для дня недели (целое число от 1 до 7) и выводит название дня недели, соответствующее этому числу​
ПАСКАЛЬАБС

Answer 1

##

var a := |'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье'|;

var n := ReadInteger('Введите день недели от 1 до 7');

if not (n in 1..7) then Print('Неверный ввод')

else Print(a[n - 1])