n=NSUR()
FORMAT 3.0

FOR I=1,n-1,1
M=SDIA(I)
P=CURV(I)
Q=M*P

θ=ABSO(360*ASIN(Q)/3.1415926)
PRINT "第",I," 面张角  θ=",θ
NEXT