Дан массив из 100 элементов . числа трехзначные . вычислить среднее арифметическое чисел кратных 9

Program srednee;var mas:array[1..100] of real;i:integer;b,sr:real;beginsr:=0; for i:= 1 to 100 do   mas[i]:=Random(899)+100; for i:=1 to 100 do  begin   b:=mas[i]/9;   if Frac(b)=0    then     begin     sr:=sr+b;    end; end;Writeln('Среднее арифметическое чисел кратных 9 = ',sr) end.