// PascalABC.NET
begin
var (k, s) := (0, 0);
repeat
var n := ReadInteger;
k += 1;
s += n
until s > 1000;
Print('Количество', k, 'среднее', s/k)
end.
// PascalABC.NET
begin
var (k, s) := (0, 0);
repeat
var n := ReadInteger;
k += 1;
s += n
until s > 1000;
Print('Количество', k, 'среднее', s/k)
end.