Решите скорее даю 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.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