program gyyyyyyyy;

var X,Y: array [1..10] of real;
      a,b,z1: real;
      i: integer;
begin

{здесь должно быть заполнение массива значениями}

a:=0; b:=0; z1:=0;

for i:=1 to 10 do
if i/2=trunc(i/2) then b:=b+X[i]*Y[i] else a:=a+X[i]*Y[i];

z1:=a/b;

writeln('z1=', z1);

end.