begin 
integer  gap,lim
integerfn  timeout(integer  k)
  result  = (gap-k)*k
end 
routine  do
integer  i,j,k=0
  for  i = 1,1,lim cycle 
    j = timeout(i)
    k = k+j
    write(i,5); write(j,6); write(k,7)
    write(j*500,8); write(k*500,9); newline
  repeat 
end 
cycle 
  prompt("Gap:"); read(gap)
  prompt("Lim:"); read(lim)
  printstring("Dubious") and  newline unless  gap>2*lim
  do
repeat 
end