В массиве,состоящем из 10 случайных чисел в интервале[-20;10],определите количество и сумму элементов кратных 3.Pascal ABC.9класс

var a: array[0..10] of Integer;i,sum,count: Integer;beginsum:=0;count:=0;for i:=0 to 9 dobegina[i]:=random(31)-10;writeln('Число ',i+1,': ',a[i]);end;for i:=0 to 9 dobeginif a[i] mod 3=0 then begincount:=count+1; sum:=sum+a[i];end;end;writeln('Сумма чисел: ',sum);writeln('Кол-во: ',count);end.