Вывести название дня недели по его номеру(паскаль)

//PascalGUI var a:integer; begin readln(a); case a of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье') else writeln('Не день недели'); end; end. Пример ввода: 1 Пример вывода: Понедельник