дано масив а от 1 до 10 визначити 1)суму та добуток додатніх елементов 2)визначити суму та добуток та кількість додатніх елементів

var a:array [1..10] of integer;var i:integer;var sum, mul, n, t:integer;begin  writeln('Введите 10 чисел:');  for i := 1 to 10 do begin    readln(a[i]);-  end;    sum := 0;  mul := 0;  n := 0;    for i := 1 to 10 do begin    t := a[i];    if t > 0 then begin      sum := sum + t;      if mul = 0 then begin        mul = t;      else begin        mul := mul * t;      end;      n := n + 1;    end;  end;    writeln('Сумма: ', sum);  writeln('Произведение: ', mul);  writeln('Количество: ', n);end.