{1}
var
    i, n, s: integer;

begin
    i := 0;
    writeln(Введите последовательность чисел,оканчивающихся отрицательным числом);
    repeat
        readln(n);
        if n gt; 0 then begin
            s := s + n;
            i := i + 1;
        end;
    until n lt; 0;
    writeln(s / i);
end.

{2}

var
    i, n: integer;

begin
    i := 0;
    writeln(Введите последовательность чисел,оканчивающихся 0);
    repeat
        readln(n);
        if n lt;gt; 0 then
            i := i + 1;
    until n = 0;
    writeln(i);
end.