Составить программу ввода двух одномерных массивов A и И размерностью 2*n, A=|a1,a2,…a2*n|, B=| b1,b2,…b2*n| и вычислить значение величины Y по формуле: Y=(a1*b1+ a3*b3+ a5*b5+… +a(2*n-1)*b(2*n-1))/ (a2*b2+ a4*b4+ a6*b6+… +a(2*n)*b(2*n)) — Pascal(Паскаль)

Uses
  CRT;

Var
  a, b: array [1 .. 100] of integer;
  i, n: integer;
  sum, sum2: real;

Begin
  repeat
    write('N: ');
    readln(n);
  until n in [1 .. 100];
  randomize;
  for i := 1 to 2 * n do
  begin
    a[i] := random(10) - 3;
    write(a[i]:3)
  end;
  writeln;
  for i := 1 to 2 * n do
  begin
    b[i] := random(10) - 3;
    write(b[i]:3);
  end;
  sum := 0;
  sum2 := 0;
  for i := 1 to n do
  begin
    sum := sum + (a[i * 2 - 1] * b[i * 2 - 1]);
    sum2 := sum2 + (a[i * 2] * b[i * 2]);
  end;
  writeln;
  write('REZ:=', sum / sum2);
  readln;

End.