Дан массив из 20 частей целого типа ,отыскать произведение нечетных кратных

Var

a: array[1..20] of integer;

i,x: integer;

Begin

x := 1;

write('Введите 20 чисел для заполнения массива: ');

for i := 1 to 20 do begin

readln(a[i]);

end;

for i := 1 to 20 do begin

if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

x := x * a[i];

end;

writeln('Творение чисел нечетных и кратных 3 = ', x);

End.