Найти сумму всех элементов массива целых чисел,которые меньше среднего арифметического элементов массива.Размерность массива-20.Заполнение массива осуществить случайными числами от 150 до 300

var a:array [1..20] of integer; i,s:integer; k:real; begin Randomize; k:=0; for i:=1 to 20 do begin   a[i]:=random(150)+150;   k:=k+a[i];   write(a[i],' '); end; k:=k/20; s:=0; for i:=1 to 20 do if a[i]