Найти угол между отрезком прямой, соединяющий начало координат с точкой А (х, у) и осью ОХ. точка лежит в первой четверти

Var

x, y, f, eps:real;

begin

eps:=0.000000001;

Readln (x, y);

if x>eps then

f:=arctan (y/x)

else f:=3.1415926535/2;

Writeln ('Угол = ', f:1:4, ' радиан = ', (f*180) / 3.1415926535:3:4, ' градусов');

end.