Помогите пожалуйста, только обведённый номер. Линейные алгоритмы. Составить программу вычисления значения выражения.

uses crt;

var x, y, a:real;

begin

read(x, y);

a:=(sqrt((abs(x))+(abs(y))));

a:=a/(sqrt(x*x+1));

writeln(a);

end.