По тексту программы определите условие задачи
var i,x,s,k,n:integer;
begin s:=0;k:=0;
readln(n);
for i:=1 to n do
begin
read(x);
if x>0 then
begin
S:=s+x;
k:=k+1;
end;end;
if k:=0 then writeln(s) else writeln(s/k:4:2);end.

Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.

Считает среднее арифметическое положительных и делит его на 8. Количество чисел определяет пользователь