Составить программу в паскале которая вычисляет день недели по номеру…

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.