Дан одномерный массив состоящий из 30 элементов целого типа. Найти произведение элементов массива, больше некоторого Х (вводится пользователем с клавиатуры) вывести результат на экран. Нарисовать блок схему

var m:array[1..30] of integer;    x,s,i:integer;begin  randomize;  readln(x);  s:=1;  For i:=1 to 30 do  m[i]:=random(101);  For i:=1 to 30 do  If m[i]>x then s:=s*m[i];  writeln('Произведение элементов массива = ',s);end.