Repeat – Until tersarang

Repeat – Until tersarang
              Repeat – Until tersarang adalah suatu perulangan  Repeat - Until
         yang satu berada didalam perulangan Repeat – Until yang lainnya.
         Contoh :
         Var
              a,b,c   : Real;
          Begin
               Writeln('========================================');
               Writeln('   sisi A                 sisi B                       Sisi C      ');
               Writeln (' =======================================');
               a:= 1;
               Repeat           { perulangan luar }
b := 0;
                Repeat{ perulangan dalam }
                 c:=Sqrt (a*a+b*b);
                 Writeln (a:6:2, b:9:2, c:9:2);
                 b:=b+5;
                Until b>25;  { berhenti jika b lebih besar  dari  5  untuk
                                perulangan dalam }
                     a:=a+1;
               Until  a>3;    { berhenti jika a lebih besar  dari  3  untuk
                                perulangan luar }
               Writeln(' =======================================');
          End.