                                                                              

 begin                                                                        

    n:=0;                                                                     

    while n<100 do                                                            

       n:=n+1;                                                                

       output(n);                                                             

    od                                                                        

 end                                                                          

