Дан массив из 30 элементов. Найдите среднее арифметическое элементов массива, которые по своему значению меньше 15. (на Паскале)

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]<15 then begin sum:=sum+mas[i]; k:=k+1; end; / /проверяем, если число из массива меньше 15, то добавляем его в сумму и считаем его

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

end.