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

//PascalGUIvara: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Пример вывода:Понедельник