Найти сумму и среднее арифметическое положительных элементов массива…

var a: array[1… 10] of integer; i,s,n,k: integer; Begin read (n); for i: =1 to n do begin read (a[i]); if a[i]>0 then begin s: =s+a[i]; k: =k+1; end; end; writeln (s, s/k); End.