Вычислить значения функции z= корень из ((x i+ai )/ 2) ,

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=40;
  var a:=ArrRandomReal(n,0,20); // интервал (0;20)
  var x:=ArrRandomReal(n,15,25); // интервал (15;25)
  for var i:=0 to n-1 do
    WriteLnFormat('x=0,6:N3  a=1,6:N3  z=2,8:N6',
    x[i],a[i],sqrt((x[i]+a[i])/2))
end.

Тестовое решение:
x=15.971  a= 9.703  z=3.582854
x=20.476  a=15.843  z=4.261401
x=24.113  a=15.527  z=4.451949
x=21.237  a= 2.343  z=3.433665
x=21.910  a= 5.607  z=3.709251
x=17.189  a=17.020  z=4.135749
x=19.563  a= 3.925  z=3.426945
x=19.889  a= 0.369  z=3.182643
x=19.562  a= 9.601  z=3.818580
x=16.894  a= 8.919  z=3.592553
x=18.958  a=17.631  z=4.277185
x=15.554  a= 3.849  z=3.114732
x=21.548  a= 5.057  z=3.647265
x=16.609  a= 7.342  z=3.460618
x=17.539  a= 7.960  z=3.570686
x=24.480  a=14.302  z=4.403538
x=17.868  a= 6.494  z=3.490103
x=21.899  a=19.188  z=4.532460
x=16.436  a=18.884  z=4.202334
x=17.206  a= 8.729  z=3.601061
x=21.814  a=10.503  z=4.019764
x=23.001  a=10.743  z=4.107544
x=19.299  a=10.107  z=3.834448
x=22.839  a= 1.729  z=3.504894
x=16.133  a=19.472  z=4.219295
x=24.329  a= 1.195  z=3.572369
x=19.025  a= 3.392  z=3.347958
x=21.468  a= 7.923  z=3.833489
x=23.858  a=11.771  z=4.220714
x=15.166  a=13.923  z=3.813718
x=20.235  a= 6.653  z=3.666651
x=17.190  a=18.974  z=4.252252
x=23.484  a=15.799  z=4.431845
x=24.087  a=12.121  z=4.254887
x=18.394  a= 9.626  z=3.743032
x=24.775  a= 7.627  z=4.025087
x=21.259  a= 3.831  z=3.541892
x=23.816  a= 2.115  z=3.600751
x=18.955  a= 2.220  z=3.253826
x=22.547  a= 0.709  z=3.409988