Protótipo: function pred(x: qualquerTipoOrdinal): mesmoTipo;
Descrição: Retorna o elemento que precede x.
Exemplo:
program exemploPred; begin writeln(pred(3)); // Deve imprimir 2 end.