Дан целочисленный массив состоящий из частей, элементы массива принимают значение от

var a:array[0..100] of integer; i,j,p:integer; begin for i:=0 to 5 do readln(a[i]); for i:=0 to 5 do begin for j:=i+1 to 4 do if (a[i] mod 3 = 0) and (a[i] mod 2 lt;gt; 0) then if (a[j] mod 3 = 0) and (a[j] mod 2 lt;gt; 0) then begin p:=a[j]*a[i]; write(p, ); end; end; end.