Program P24;
 { Predecesorii şi succesorii valorilor ordinale }
begin
 writeln(pred('B'));    { 'A' }
 writeln(succ('B'));    { 'C' }
 writeln(pred(0));      {  -1 }
 writeln(succ(0));      {   1 }
 writeln(pred('0'));    { '/' }
 writeln(succ('0'));    { '1' }

end.