var x,y: real;
begin
write('x = ');
readln(x);
if x<0 then y:=x+sqrt(x+1)
else if x>0 then y:=x/(3*3)+1
else y:=0;
writeln('y = ',y:5:2);
end.
Пример:
x = 27
y = 4.00
