Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три.

var i,a,b:integer; x: array[1..10] of integer; begin a:=0; b:=0; for i:=1 to 10 do begin begin x[i]:=random(21)-10; write(x[i]:4); end; if (x[i]>=0)and(x[i] mod 3=0) then b:=b+1; end; writeln; write('количество элементов положительных и кратных три = ',b); writeln; for i:=1 to 10 do begin a:=a+x[i]; end; write('суммa = ',a); end.