Program P23;
 { Operaţii relaţionale asupra valorilor de tip ordinal }
type Culoare=(Galben, Verde, Albastru, Violet);
begin
 writeln(Verde<Violet);  { true  }
 writeln(Verde<=Violet); { true  }
 writeln(Verde=Violet);  { false }
 writeln(Verde>=Violet); { false }
 writeln(Verde>Violet);  { false }
 writeln(Verde<>Violet); { true  }
end.