Protótipo: procedure dec(var x: qualquerTipoOrdinal; [ decremento: qualquerTipoO rdinal ]);
Descrição: Decrementa de x o valor de decremento. Se decremento não for espe cificado, é tido como 1, pois a parte entre colchetes é opcional.
Exemplo:
program exemploDec; var i : integer; begin i := 1; dec(i); // i := 0 dec(i, 2); // i := -2 end.