program enum_test (output);

type animal = (mouse,amoeba,bill_mudd,dog,man);

var thing : animal;

begin
  writeln ('Enumerated type test');

  for thing := mouse to man do
    case thing of
      mouse, man : writeln ('Man or mouse');
      dog : writeln ('Woof !');
    end
      otherwise writeln ('Not anything important');
end.