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

Дмитрий

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.