Составить программу в паскале которая вычисляет день недели по номеру(1-понедельник,2-вторник...) , и говорит рабочий он или нет ( воскресенье нерабочий только ) Спасибо=)

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