программа, которая по введенному дню недели (от 1 до 7) печатает его название (понедельник, вторник и т. д.), а также сообщение о том, выходной ли это день — Pascal(Паскаль)

var
d:integer;
begin

repeat
readln(d);
until d in [1..7];
case d of
1:write('понедельник рабочий');
2:write('вторник рабочий');
3:write('среда рабочий');
4:write('четверг рабочий');
5:write('пятница рабочий');
6:write('суббота выходной');
7:write('воскресенье выходной');
end;

end.