Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>
Немного непонятно, как 8 может указывать на то, что дальше будет 6 чисел.
python 3:
with open("input.txt") as f:
numbers = list(map(int, f.read().split()))[1:]
print(sum(numbers)/len(numbers))
PascalABC.NET 3.2:
begin
var f := openread('input.txt');
var n := readinteger(f);
var sum := 0;
for var i := 1 to n do
sum += readinteger(f);
write(sum / n);
end.