program ex5
beginprogram
 i = 0;
 j = 100;
 k = 1000;
 l = 10000;
 m = 100000;
 while i < 1000 do
   i = i+1; 
done;
 while j  < 1000 do
   j = j+k; 
done;
 while k > 100 do
   k = k-j; 
done;
 while l > 1000 do
   l = l+k; 
done;
 while m > 1 do 
   m = m-l; 
done;
endprogram