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