Pascal/Turbo Pascal - programa para convertir coordenadas rectangulares a polares

{Mira esto}

uses

    crt;

 var

   r, t : real;

   ra : real;

   gr : real;

 procedure cartapolar(x, y : integer);

 begin

    r := Sqrt(Sqr(x) + Sqr(y));

    t := arctan((x / y));

 end;

 begin

    clrscr;

    cartapolar(5,3);

    writeln('Radio  = ',r:0:2);

    writeln('Angulo = ',t:0:2);

    readkey;

 end.