вывести на экран через запятую массив из 30 целых случайных чисел до 30 . Вычислить произведение чисел больше 15 и меньше 20

vari,count:integer;mas: array [1..30] of integer;begincount:=1;randomize;for i:=1 to 30 do beginmas[i]:=random(0,30);write(mas[i],',');if (mas[i] > 15) and (mas[i] < 20) thencount:=count*mas[i];end;writeln('');writeln('Произведение чисел > 15 и < 20 = ',count);end.