procedure radianstodegreeparts(
     radians: real; var degrees, minutes, sECOnds: real
   );