Дан численный массив из 10 элементов случайных чисел принадлежащих интервал от 0 до 20 .необходимо найти произведение элементов массива кратных к 6

const n=10; var    a: array[1..n] of integer;   p,k: integer;   i: byte; begin   randomize;   p:=1; k:=0;   for i:=1 to n do begin     a[i]:=random(21);     if (a[i]>0) and (a[i] mod 6 =0) then begin       p:=p*a[i];       k:=k+1;     end;   end;   println (a);   if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)       else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)            else writeln ('Нет элементов, кратных 6') end. ----------------------------------- Примеры: 15 7 14 14 1 17 4 2 20 10 Нет элементов, кратных 6 12 11 16 1 20 6 0 8 7 20 Произведение элементов, кратных 6, = 72 14 6 8 3 15 7 14 5 19 15 Найден всего 1 элемент, кратный 6, - 6