Pascal, тип данных, заданных пользователем

 type 
  TDW = (Mon = 1, Tue, Wed, Thu, Fri, Sat, Sun); 
 
var 
  d: integer; 
 
begin 
  read(d); 
  if TDW(d) in [Mon .. Fri] then 
    writeln('рабочий') 
  else 
    writeln('выходной'); 
end.