(while:prn:- 180(mod(-(read)(read)180)360))