Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
r: real;
begin
readln(r);
writeln(System.Math.Atan(r) * 180 / Pi);
end.