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

на каком языке делать? где эта последовательность находится?

Var
  a,n,s: integer;
begin
//0 - условие окончания ввода последовательности
repeat
  readln(a);
  if (agt;99) and (alt;1000) then begin
    s:=s+a;n:=n+1;
  end;
  until a = 0;
  if n = 0 then writeln ('В последовательности 3-х значных нет')
  else writeln('Среднее арифметическое 3-х значных чисел = ',s/n);
end.

Тест 1
1
5
234
123
5
0
Среднее арифметическое 3-х значных чисел = 178.5

Тест 2
3
5
5678
12
0
В последовательности 3-х значных нет