Perulangan FOR negatif

Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil. Statement yang digunakan adalah FOR-DOWNTO-DO

Contoh :

USES CRT;
VAR
    i : INTEGER ;
BEGIN
    FOR i := 10 DOWNTO 1 DO WRITE(i:3);
END.

Hasil :

10 9 8 7 6 5 4 3 2 1