program enum; 
type emot = (LOVE=100,HATE);
type color = (RED,GREEN,BLUE);
var v : emot;
var v2 : color;
begin
   v := love;
   writeln('v=',HATE);
   writeln('v=',v);
   if v = LOVE then
      writeln('LOVE is the way');
   v2 := RED;
   writeln('v2=',v2)
end.