посчитайте , контрольная;)))

var x,y:Real;

begin

readln(x);

y:=sqrt(x*x*x*x+sqrt(abs(x+1)));

writeln(y);

end.