Дан массив из 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.