type
  week=(mon,tue,wed);
Var
    w : week;
    w1 : mon..tue;
begin
  w1:=w;
end.