pi=4*atan(1.) write(6,*) 'enter number for arc-cos:' 10 read (5,*,end=20,err=20) x write(6,*) x,180*acos(x)/pi goto 10 20 continue end