TP3/shell/tests/fixtures/t86_succ.pas

PROGRAM T86;
VAR
   C : Char ;
   N : Integer ;
BEGIN
   C := 'A' ;
   C := Succ (C) ;
   WRITELN (C) ;
   N := 5 ;
   N := Pred (N) ;
   WRITELN (N) ;
   C := Pred (Succ (C)) ;
   WRITELN (C)
END.