Question

y=  

Answer 1

var
  x, y: real;
begin
  readln(x);
  if (x <= 0) then
    y := sqr(x)
  else
    y := sqrt(x);
  writeln(y);
end.

Answer 2

I'm sorry, but your question is incomplete. It appears that you have not provided any equation or expression for me to evaluate. Please provide the necessary information for me to assist you better.