Нахождение угла между радиус-вектором и осью абсцисс

function angl(y,x:extended):extended;  assembler; 
 asm 
  fld y   {СТЕК!!! Сначала у, потом х} 
  fld x 
  fpatan 
 end; 

вывод ответа:

s:=angl(0,1)*180/pi; {Т.к возвращается угол в радианах} 
writeln(s:0:0);