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

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