Напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8

Var
    d: integer;
    n := 0;
    s := 0;

begin
    repeat
        readln(d);
        if (d > 0) and (d mod 8 = 0) then begin
            s := s + d;
            n := n + 1;
        end
    until d = 0;
    writeln('Avg = ',s / n)
end.