Решение алгебраического уравнения - Turbo Pascal

Формулировка задачи:

Не могу понять, как задать в выражение: ((sqrt (x))+ 1)^2/(5y+1))

Решение задачи: «Решение алгебраического уравнения»

Листинг программы

var
  x, y: double;
  
begin
  Write('Введите X: '); ReadLn(x);
  Write('Введите Y: '); ReadLn(y);
  if x < 0 then WriteLn('X не может быть меньше 0')
    else if y = -0.2 then WriteLn('Деление на 0')
      else WriteLn(Sqr(Sqrt(x) + 1) / (5 * y + 1):0:5);
  ReadLn
end.

Объяснение кода листинга программы

Объявляются две переменные типа double: x и y.
Выводится сообщение «Введите X: », и переменная x считывается с помощью функции ReadLn.
Выводится сообщение «Введите Y: », и переменная y считывается с помощью функции ReadLn.
Проверяется, что значение переменной x больше или равно нулю. Если это условие не выполняется, выводится сообщение «X не может быть меньше 0».
Проверяется, что значение переменной y равно -0.2. Если это условие выполняется, выводится сообщение «Деление на 0».
Вычисляется значение выражения Sqr(Sqrt(x) + 1) / (5 * y + 1).
Выводится полученное значение с точностью до 5 знаков после запятой.
Выводится сообщение ReadLn для завершения ввода данных.