pred.pas

 {Pred.PAS}
 
 { Пример программы для функций 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.