1 2 3 4 5 6 7 8 9 10
{ %fail } function c(x:char):char; begin c:=(char(succ(ord(x)))); end; begin if not c('y') in ['a','b'] then writeln(99); end.