Program P25;
type Zi=(L, Ma, Mi, J, V, S, D);
var z1, z2 : Zi;
begin
 z1:=Ma;
 writeln(ord(z1));
 z2:=pred(z1);
 writeln(ord(z2));
 z2:=succ(z1);
 writeln(ord(z2));
 z1:=Mi; z2:=V;
 writeln(z1<z2);
 writeln(z1>z2);
 writeln(z1<>z2);
end.