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

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.