Решите скорее даю 100 балов

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.0z = 0.10625Введите A2: 3.4Введите B2: 1.6z = 0.0118229350252614Введите A3: 4.0Введите B3: 3.0z = 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)    endend.ПримерВведите значения a и b: 1 2z=0.10625Введите значения a и b: 3.4 1.6z=0.0118229350252614Введите значения a и b: 4 3z=0.00515364142269538