Функция Succ()

Модуль SYSTEM

Возвращает последователя параметра.

Объявление:

Function Succ(X) : (тип параметра);

Режим:

Windows,  Protected,  Real

Замечание:

X - выражение перечислимого типа. Результат того же самого типа, что и X является последователем X.

Например:
Succ(10) = 11
Succ('D') = 'E'
Succ(FALSE) = TRUE

Пример:

 { Пример программы для функций Pred и Succ }
 
 Uses WinCrt;
 
 Type Colors = (RED, BLUE, GREEN);
 
 Begin
  WriteLn('Предшественник 5 - это ', Pred(5));
  WriteLn('Последователь 10 - это ', Succ(10));
  If Succ(RED) = BLUE Then
  WriteLn('В типе Colors, RED является предшественником BLUE.');
 End.