Задан линейный массив с из 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.

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

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