{
   Задача:
	- функция SUCC или PRED
   Решение :
   - автор Дмитрий Кузнецов
   - цена $112.21
}

program SUCC(INPUT);
type
	some = (SUC, PRE, NEXT);
var
	any	: some;

begin

	any := NEXT;
	
	any := PRED(any);
	
	writeln(any);

end.