Вычислить Z – сумму значений функций Z= f(a, b)+ f(a2, b2) + f(a2 – 1, b ) + f (a-b, b) + f(a2 + b2, b2 –1), где f(u,t) = u2 + t2, если u>0, t>0 или f(u,t)=u+t2, если u<0 t<0 или f(u,t) = u-t, если u>0, t <0 - Pascal(Паскаль)

Program PascalGuru;

function f(u, t: real): real;
var
  rez: real;
begin
  if (u > 0) and (t > 0) then
    rez := u + t;
  if (u < 0) and (t < 0) then
    rez := u + t;
  if (u > 0) and (t < 0) then
    rez := u - t;
  if (u < 0) and (t > 0) then
    rez := u + t;
  f := rez;
end;

{ ---------------------------------- }
var
  a, b, z: real;

begin
  write('a= ');
  readln(a);
  write('b= ');
  readln(b);

  z := f(a, b) + f(a, b) + f(a - 1, b) + f(a - b, b) + f(a + b, b - 1);

  writeln;
  writeln('Z= ', z:0:2);

  readln;

end.