Quelle  tall-answer.cob

      01 x pic 9(5) comp value 0.
      01 y pic 9(5) comp value 0.
      01 y-max pic 9(5) comp value 0.
      01 left-side pic 9(7) comp value 0.
      01 right-side pic 9(7)comp value 0.
      * from COBUG, May/4/2007
      * see tall.cob
      Procedure Division.

      perform varying x from 1 by 1
      until x = 50000
      compute y = x -1
      compute y-max = 2 * x
      perform varying y from 1 by 1
      until y = y-max
      compute left-side = 2 * x * x
      compute right-side = y * Y + 1
      if left-side = right-side
      display “x = “ x
      “ y = “ y
      move y-max to y
      end-if
      end-perform
      end-perform.