Var
a, x, y, t: real;
begin
t := 0;
write('a = '); readln(a);
write('x = '); readln(x);
write('y = '); readln(y);
if ((a + x) > 0) then t := a + x * x * x;
if ((a + x) = 0) then t := 4 * a;
if ((a + x) < 0) then t := sqrt(abs(a * x + 1));
writeln('t = ', t);
end.