На основе сведений о ежедневном пробеге автомобилей транспортного управления рассчитать среднее значение пробега по всему предприятию за каждые сутки месяца (30 дней). Количество автомобилей принять равным N — Pascal(Паскаль)

var
i:integer;
s,sr:real;
a:array[1..30] of integer;
begin
sr:=0;

for i:=1 to 30 do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;

for i:=1 to 30 do
sr:=sr+a[i];
sr:=sr/30;
writeln();
writeln('----');
writeln(sr:4:3);
end.