К порядковым типам можно применять функции:

PRED (X) – возвращает предыдущее значение порядкового типа (значение, которое соответствует порядковому номеру ORD(X) - 1), т.е.

ORD(PRED(X)) = ORD(X) - 1;

SUCC (X) – возвращает следующее значение порядкового типа, которое соответствует порядковому номеру ORD(X) +1, т.е.

ORD(SUCC(X)) = ORD(X) + 1.

Что будет выведено на экран в результате выполнения программы:

var

с : Char;

begin

с := '5' ;

Writeln (ORD(c), PRED (c), SUCC(c));

end.