Ответ: uses crt;var i,j:integer;beginreadln(i);case i of1,2,3,4,5 : writeln(‘Рабочий’);6,7: writeln(‘Выходной’);end;end.