От за правильно решённое задание.

var  

   x:real;

   y:real;

begin

   Readln(x);

   writeln('x = ', x);

   writeln('y =', (sqrt( (2 * x + sin(abs(3 * x)) ) / 3.56)) : 0 : 6);

end.

Объяснение:

Компилировал fpc 3.0.0