дан массив а от 1 до 10 определить 1)сумму и произведение положительных элементов 2)определить сумму и произведение и количество положительных элементов

S - сумма, D - произведение, k - количество.Промежуток задан рандомно.var a: array[1..999] of integer; var S, D, k: integer;begin    D := 1;   for var i := 1 to 10 do begin        a[i] := random(-3, 3);        write(a[i] + ' ');end;writeln;for var i := 1 to 10 do begin     if a[i] > 0 then begin         S += a[i];         D *= a[i];         k += 1;     end;end;writeln(S + ' ' + D + ' ' + k + ' ');end.