Дан одномерный целочисленный массив . Найти произведение элементов массива , меньших 10( срочно пожалуйста )

Program n1;var a: array[1..10] of integer;i: integer;p: real;beginrandomize;write('массив: ');p:=1;for i:=1 to 10 do begina[i]:=random(41)-20;write(a[i],' ');if a[i]<10 then p:=p*a[i];end;writeln;write('произв. <10: ',p);end.