Из окна формы вводятся координаты точки на плоскости (x,y). Вычислить и вывести в окно формы полярные координаты точки по формулам. Написать на паскале

Предыдущий
вопрос Следующий
вопрос

program PolarCoordinates;

var
x, y, r, theta: real;

begin
writeln('Введите координаты точки (x,y): ');
readln(x, y);

r := sqrt(sqr(x) + sqr(y));

if (x = 0) and (y = 0) then
theta := 0
else if x > 0 then
theta := arctan(y / x)
else if x < 0 then
theta := arctan(y / x) + Pi
else
theta := Pi / 2;

writeln('Полярные координаты точки:');
writeln('r = ', r:0:2);
writeln('θ = ', theta:0:2);
end.