{$codepage UTF8} {$UNITPATH ../librerias} USES MiUnidad; VAR x,y:double; a,r:double; BEGIN Writeln('Coordenadas Polares a rectangulares '); Write('angulo = ');readln(a); Write('radio = ');readln(r); PolarRect(a,r,x,y); Writeln('x=',x:2:3); Writeln('y=',y:2:3) END.