Program Massiv;
var y: real; a: array of integer; b: array of integer; i,n,aa,bb:integer;
begin
write('Введите число');
readln(n);
setlength(a,n);
setlength(b,n);
writeln('Ввод чисел для массива A');
for i:=0 to n-1 do readln(a[i]);
writeln('Ввод чисел для массива B');
for i:=0 to n-1 do readln(a[i]);
aa:=0;
bb:=0;
for i:=0 to n-1 do begin
aa:=aa+a[i];
bb:=bb+b[i];
end;
y:=aa/bb;
writeln('y = ',y);
readln;
end.
Как-то так