Помогите найти ошибку.

[PedroSUN]

var
t, b, c, x : real;
begin
Write('x= ');Readln(x);
b:=(x-1);
if b >= 0 then
c:=Exp((1/3)*Ln(b))
else begin
c:=-Exp((1/3)*Ln(Abs(b)));
Writeln('Ответ= ',c);
end;
end.



Выдаёт ответ только если я ввожу отрицательный Х, если положительный, то вообще ничего не происходит.

[ura_111]

Я точно не уверен (нет возможности проверить), ну попробуй так

var 
t, b, c, x : real;
begin
Write('x= ');Readln(x);
b:=(x-1);
if b >= 0 then
c:=Exp((1/3)*Ln(b))
else begin
c:=-Exp((1/3)*Ln(Abs(b)));
end;
Writeln('Ответ= ',c);
end.

[type_Oleg]

PedroSUN, если просто красиво оформить твой код, ничего не меняя, то сразу видно где ошибка.

var 
  t, b, c, x : real;
begin
  Write('x= ');Readln(x);
  b:=(x-1);
  if b >= 0 
   then  c:=Exp((1/3)*Ln(b))
   else 
    begin
      c:=-Exp((1/3)*Ln(Abs(b)));
      Writeln('Ответ= ',c);
    end;
end.

Видно, что вывод Writeln результата - только при < 0

PS ura_111 , при else - скобки begin..end уже получаются не нужны.