дан одномерный массив из 50 чисел..составить программу,которая находит произведение элементов массива равных 20 и выводит его на экран.массив вводится с клавиатуры.ПОМОГИТЕ ПОЖАЛУЙСТА !ОЧЕНЬ НАДО!

constn=50;vara:array[1..n] of integer;i,p:integer;beginp:=1;for i:=1 to n dobeginwriteln('Введите элемент №',i);readln(a[i]);if a[i]=20 thenp:=p*a[i];end;writeln('Произведение =',p);end.