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

uses crt;
var
y:real;
x,sumpos,max,dnei,vsegopos:integer;
i:integer;
a:array[1..500] of integer;
begin
writeln('za skolko dnei poschitat srednee kol-vo posetitelei'); readln(dnei);
x:=1;
for i:=1 to dnei do begin
writeln('posetitelei v ',x,'-ii den='); readln(a[i]);
sumpos:=sumpos+a[i];
x:=x+1;
end;
y:=sumpos/dnei;
writeln('V srednem v den galaeru posetilo ',y,' ludei');
end.

sred:=0;n:=0;
repeat
write('Введите количество посетителей за очередной день ');
readln(a);
n:=n+1;
sred:=sred+a;
until a=0;
sred:=sred/n;

var sred:real;a,n,s:byte;
begin
sred:=0;n:=0;
a:=0;s:=0;
while s=0 do begin
write('Введите количество посетителей за очередной день ');
readln(a);
n:=n+1;
sred:=sred+a;
if a=0 then s:=1;
end;
sred:=sred/n;
end.

while a<> 0 do begin

uses crt;
var sred:real;
    a,n,s:byte;
begin
clrscr;
textcolor(15);
a:=1;
sred:=0;n:=0;
writeln('Введите количество посетителей за каждый день ');
writeln('Окончание ввода - 0');
while a<>0 do
 begin
  n:=n+1;
  write(n:2,' - ');
  readln(a);
  sred:=sred+a;
 end;
writeln('Всего посетителей ',sred:0:0,' чел. за ',n-1,' дн.');
sred:=sred/(n-1);
write('Среднее=',sred:0:0);
readln
end.