Perulangan While – Do tersarang

Perulangan While – Do tersarang
              Perulangan  While – Do tersarang (nested  While - Do)  merupakan
         perulangan  While – Do yang satu di dalam perulangan  While – Do yang
         lainnya.
         Contoh :

         Uses Crt;
          Var
            a, b : Integer;
          Begin
               ClrScr;
               a:=1;
               b:=1;
               While a <  4 Do{ loop selama a masih lebih kecil dari 4 }
               Begin
a := a+1;
                While  b <  3 Do{ loop selama b masih lebih kecil dari 3 }
                Begin
                 Write (a:3,b:2);
                 b:=b+1;
                End;
               End;
               Readln;
          End.