Помогите составить задачу пожалуйста!!! Дан массив из 6 целых чисел. Определить произведение элементов больше трех

var n,s,i: integer;     a: array[1..6] of integer; begin   n:=6;  s:=1;   randomize;   writeln('исходный массив из 6 элементов');   for i:=1 to n do   begin     a[i]:=random(10);     write(a[i],' ');     if a[i]>3 then s:=s*a[i];   end;   writeln;   writeln('произведение элем., больших 3 = ',s);   readln; end.