Perulangan Repeat - Until.

Perulangan Repeat - Until.
              Repeat – Until digunakan untuk mengulang statement-statemen
              atau blok statement sampai (Until) kondisi yang diseleksi di Until
              tidak terpenuhi. 
            Sintak dari statement ini adalah :
              Contoh :

                 Var
                       i : Integer;
                 Begin
                      i:=0;
                      Repeat
                         i:= i+1;
                         Writeln (i);
                      Until i=5;
                 End.

         hasil :
                 1
                 2
                 3
                 4
                 5