Verified answer

Ответ:

program Calc;

var

 x, y, z: Real;

begin

 Write ('Введите x: ');

 ReadLn (x);

 z := Sqr (x) + 4 + 2;

 if z > 0 then begin

   y := Sqrt (z) / 2;

   WriteLn ('y = ', y :10 :5);

 end else

   WriteLn ('Значение не определено');

 ReadLn;

end.

Объяснение:

возможно "4" забыли на "x" умножить, тогда замените:

 z := Sqr (x) + 4 * x + 2;

Verified answer

var x: real;

begin

write('x=');

readln(x);

write('y=',sqrt(x*x+4+2)/2);

end.