double a, c, g, t, p
double apprpi
short i

// Initial values
a = 1
g = sqr(0.5)
p = 1
t = 0.25

//Iterate just 3 times
for i = 1 to 3
  c = a
  a = ( a + g ) / 2
  g = sqr( c * g )
  c -= a
  t -= ( p * c^2 )
  p *= 2
  apprpi = (( a + g )^2) / ( t * 4 )
  print "Iteration "i":  ", apprpi
next

print "Actual value:",pi

handleevents