Дано 7 чисел. Найти произведение чисел больших 5.

var mas: array [1..7] of integer; s,i: integer; begin s := 1; for i := 1 to 7 do if mas[i]>5 then s := s * mas[i]; end;