                                                                              

 /* Example2 - terrible cycles and myltiplication */                          

                                                                              

 begin                                                                        

    Count1:=0;                                                                

    Count2:=0;                                                                

    Count3:=0;                                                                

    while Count1<10 do                                                        

       Count1:=Count1+1;                                                      

       Count2:=0;                                                             

       while Count2<10 do                                                     

          Count2:=Count2+1;                                                   

          Count3:=0;                                                          

          while Count3<10 do                                                  

             Count3:=Count3+1;                                                

             output(Count1*Count2*Count3);                                    

          od                                                                  

       od                                                                     

    od                                                                        

 end                                                                          

