Задан линейный массив С из N элементов. Подсчитайте произведение элементов массива, которые больше 20, но меньше 30. (Составьте блок-схему и программу)

var c:array[1 ... 100] of integer;

n, i, proizv:integer;

begin

write ('введите кол-во элементов массива') ;

read (n) ;

For i:=1 to n do

c[i]:=random (50) ;

proizv:=1;

For i:=1 to n do

if c[i]>20 then

if c[i]<30 then

proizv:=proizv*c[i];

For i:=1 to n do

write (c[i],' ') ;

write ('произведение = ', proizv) ;

end.

блок-схему нет возможности скинуть, извини

написал на языке паскаля