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
