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

Var

i, count:integer;

mas: array [1 ... 30] of integer;

begin

count:=1;

randomize;

for i:=1 to 30 do begin

mas[i]:=random (0,30) ;

write (mas[i],',') ;

if (mas[i] > 15) and (mas[i] < 20) then

count:=count*mas[i];

end;

writeln ('') ;

writeln ('Произведение чисел > 15 и < 20 = ', count) ;

end.