Постройте метод и составьте программку, по которой будет реализован последующий вариант

Какой язык?

//PascalABC.NET
//Постройте алгоритм и составьте программку, по которой будет реализован
//последующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает заглавие этого дня (типо если ввели
//1 это понедельник 3 - среда)

type Arr = array [0..6] of string;

begin
    var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
                'Четверг', 'Пятница', 'Суббота');
    write('Введите порядковый номер денька недели: ');
    var n := ReadlnInteger;
    write('Этот денек называется ', DN[n mod 7])
end.