var
  a,b,x,y,z: real;
  n,i: byte;
begin
  write ('Сколько значений функции вы хотите получить?  ');
  readln (n);
  for i:=1 to n do begin
    write ('Введите A',i,': ');
    readln (a);
    write ('Введите B',i,': ');
    readln (b);    
    if (a<>0) and (b<>0)  
      then begin 
        x:=a+b;
        y:=a*x*x+b;
        z:=(a+b+x+y)/((a+x)*(a+x)+(a+y)*(a+y));
        //writeln ('x = ',x,'  y = ',y,); // Если нужны также значения х и у
        writeln ('z = ',z); end
      else writeln ('Ошибка: деление на 0');
  end;
end.

----------------------Результат:-----------------------

Сколько значений функции вы хотите получить? 3
Введите A1: 1.0
Введите B1: 2.0
z = 0.10625
Введите A2: 3.4
Введите B2: 1.6
z = 0.0118229350252614
Введите A3: 4.0
Введите B3: 3.0
z = 0.00515364142269538

var
  a,b,x,y,z:real;
  i:integer;
begin
  for i:=1 to 3 do begin
    Write('Введите значения a и b: '); Read(a,b);
    x:=a+b; y:=a*x*x+b;
    z:=(a+b+x+y)/(sqr(a+x)+sqr(a+y));
    Writeln('z=',z)
    end
end.

Пример
Введите значения a и b: 1 2
z=0.10625
Введите значения a и b: 3.4 1.6
z=0.0118229350252614
Введите значения a и b: 4 3
z=0.00515364142269538