castilho

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.