Question

Пожалуйста решите, очень надо...

Answer 1

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.