Составить программу нахождения значения функции у=((√х^2+5)/3)-8

Var
x:real;
Begin
Write('x = ');
ReadLn(x);
WriteLn('y = ',(sqrt(sqr(x))+5)/3-8);
End.

Но поскольку √x^2 = |x|, можно записать так:

Var
x:real;
Begin
Write('x = ');
ReadLn(x);
WriteLn('y = ',(abs(x)+5)/3-8);
End.