* als05a.prg
store 1 to k
store 1 to p
do while  p > 0
 store k*k to car
 store car*car to p
 ? k , p
 store k+1 to k
 if k > 20
    return
 endif
enddo