36-битов да может быть закодировано
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
y:=x/2;
writeln('y = ',y);
end
else
if x>=0 then
y:=sqrt(3+x);
end;
end.