mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
11 lines
129 B
ObjectPascal
11 lines
129 B
ObjectPascal
{ %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.
|