написать программу вычесляющую произведение всех чётных чисел у интервала [1;20]

const N=10;var a: array [1..N] of integer;i, p: integer;beginfor i:=1 to N doa[i]:= random (20);p:=1;if a[i] mob 2=0 thenp:=p*a[i];writeln (a[i];end.