{$codepage UTF8} UNIT MiUnidad; INTERFACE Uses math; Const PI=3.141592654; Nep=2.718281828; Procedure PolarRect(angulo,radio:double;var x,y:double); IMPLEMENTATION Procedure PolarRect(angulo,radio:double;var x,y:double); Begin //Las funciones sin y cos //se encuentra en la unidad math x:=radio * cos(angulo); y:=radio * sin(angulo) End; INITIALIZATION Writeln('Inicio de la Unidad') FINALIZATION Writeln('Fin de la Unidad') END.