Дан массив из 30 элементов. Найдите среднее арифметическое частей массива, которые

program zz1;
var mas:array[1..30] of integer;
i,k,sum:integer;
begin
for i:=1 to 30 do //получаем начальный массив случайным образом от 1 до 20
mas[i]:=random(20)+1;
for i:=1 to 30 do
write(mas[i]:5); //выводим приобретенный массив на экран
writeln; //перебегаем на другую строчку для вывода
for i:=1 to 30 do
if mas[i]lt;15 then begin sum:=sum+mas[i];k:=k+1;end; //проверяем, если число из массива меньше 15, то прибавляем его в сумму и считаем его

write(среднее арифметическое=,sum/k) //выводим ответ
end.