Пожалуйста посчитайте с решением задачи Pascal

begin
  var x:=ReadArrReal('Введите 8 значений x:',8);
  var y:=ReadArrReal('Введите 8 значений y:',8);
  x.Zip(y,(p,q)->Sqrt(p*p+q*q)).Println
end.


Введите 8 значений x: 4 2.5 -3.1 1.6 0 7 3.33 12.8
Введите 8 значений y: -4.56 2.18 3.1 9 0 7 1.001 0.002
6.06577282792556 3.31698658423576 4.38406204335659 9.14111590562115 0 9.89949493661167 3.47719729092268 12.80000015625