Помогите, пожалуйста. Смысл таков, нужно посчитать среднее арифметическое положительных...

Question

Помогите, пожалуйста. Смысл таков, нужно посчитать среднее арифметическое положительных чисел(которые мы вводим), программу можно изменять, добавлять новые переменные. Добавить тот оператор нужно после оператора с уcловием где n>0

---

Answer 1

Var
    n, k, s: integer;

begin
    s := 0;
    k := 0;
    repeat
        write('Введите целое число = ');
        readln(n);
        if n > 0 then begin
            k := k + 1;
            s := s + n;
        end
    until n = 0;
    writeln('Среднее арифметическое = ', s / k);
end.