Вычислите значение функций

{ Pascal подойдёт ? }

Program Value; var x:real;

Function y(x:real):real; begin if x<0 then y:=x/2 else y:=sqrt(x) end;

Begin while true do begin write('x = '); readln(x); writeln(y(x)) end end.