Задан линейный массив С из 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.   блок-схему нет возможности скинуть, извини   написал на языке паскаля