DEC(fungsi)

Mengurangi (decrements) nilai suatu variabel.

Sintaks:

DEC(x,i); {i >=1}

Contoh :

PROGRAM Mani_data;
USES CRT;
TYPE
    hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)
VAR
    urutanhr : hari;
CONST
    namahr : ARRAY[hr1..hr7] OF STRING[6]= ('Senin','Selasa','Rabu','Kamis',
    'Jumat','Sabtu','Minggu');
BEGIN
    WRITELN('DAFTAR NAMA HARI');
    urutanhr := hr0;
    WHILE Urutanhr < hr7 DO
        BEGIN
            urutanhr := SUCC(urutanhr);
            WRITE('hari ke ',ORD(Urutanhr):2,' adalah ');
            WRITELN(namahr[urutanhr]);
        END;
END.

hasilnya adalah :

DAFTAR NAMA HARI
hari ke 1 adalah Senin
hari ke 2 adalah Selasa
hari ke 3 adalah Rabu
hari ke 4 adalah Kamis
hari ke 5 adalah Jumat
hari ke 6 adalah Sabtu
hari ke 7 adalah Minggu