Dec

           Thủ tục:     Dec

           Unit:   System   

           Cú pháp:   Dec ( Var X: Scalar; N: LongInt );

           Công dụng:   Dec giảm biến X đi N. Nếu không có N, X sẽ giảm đi 1, điều đó có nghĩa là Dec(X) tương đương với X:=X - 1. Dec (X,N) tương đương với X:= X - N.      

Ví dụ: Với g=5 thì sau thủ tục Dec(g,2) thì g có giá trị là 3. Sau thủ tục Dec(g) thì g có giá trị là 4.