const N=30;var a: array [1. . N] of longint;i, j, p: longint;beginfor i:=1 to N do readln(a[i]);p:= 1;for i:=1 to N doif (a[i] mod 2 = 0) and (a[i] mod 10 > 0) thenp:= p*a[i];writeln(p)end. Укажите словами , 1 предложением, что определяет данная программа​