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