Дан целочисленный массив А[1...100], элементы которого неотрицательны. Необходимо заполнить таблицу действительных чисел В[1...100], i-ый элемент которой равен среднему арифметическому первых i элементов массива А

const Num=100;type MasInt=array[1..Num] of integer;    MasReal=array[1..Num] of real;var A:MasInt;    B:MasReal;    i:integer;    function Arifm(var A:MasInt; i:integer):real;var j, sum, k:integer;beginsum:=0;k:=0;for j:=1 to i do    begin    sum:=sum+A[j];    inc(k);    end;Arifm:=sum/k;end;    beginrandomize;for i:=1 to Num dobeginA[i]:=random(100);write(A[i], ' ');end;writeln();for i:=1 to Num dobeginB[i]:=Arifm(A, i);write(B[i], ' ');end;end.