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

Var
  a, x, y, t: real;
begin
  t := 0;
  write('a = '); readln(a);
  write('x = '); readln(x);
  write('y = '); readln(y);
  if ((a + x) gt; 0) then t := a + x * x * x;
  if ((a + x) = 0) then t := 4 * a;
  if ((a + x) lt; 0) then t := sqrt(абс(a * x + 1));
  writeln('t = ', t);
end.