Определить среднюю температуру воздуха

uses crt;
var a:array[1..91] of integer;
    i,sum:integer;
    sr:real;
begin
ClrScr;
Randomize;
for i:=1 to 91 do
 begin
  a[i]:=random(17)+5;
  Write(a[i],' ');
 end;
sum:=0;
for i:=1 to 91 do
 sum:=sum+a[i];
Writeln;
Writeln('Sr ',sum/91:0:1);
Readln;
end.

uses crt;
var a:array[1..91] of integer;
    i,sum:integer;
    sr:real;
begin
for i:=1 to 91 do
 begin
  Readln(a[i]); //ну вводите 91 число
 end;
sum:=0;
for i:=1 to 91 do
 sum:=sum+a[i];
Writeln;
Writeln('Sr ',sum/91:0:1);
Readln;
end.

for i:=1 to 91 do
 begin
  Readln(a[i]); //ну вводите 91 число
 end;

var
S,O,N:array[1..31] of real; {S,O,N-это массив, в котором мы будем хранить температуру за каждый день}
Summa,Otvet:real; Dsen,Dokt,Dnoi:byte; {Summa,Otvet-это переменные, куда мы сохраняем сумму всех температур, Otvet - среднее арифметическое}
 
begin {Здесь начинаем ввод данных, изначально сумма ровна 0, по ходу мы суммируем в неё все температуры, я сделал всё для каждого месяца отдельно}
Summa:=0;
 
write('Введите количество дней в сентябре: '); Readln(Dsen); writeln;
for Dsen:=1 to Dsen do begin
write('Введите температуру за ',Dsen,' сентября: ');
readln(s[Dsen]); summa:=Summa+s[Dsen]; end; writeln;
 
write('Введите количество дней в октябре: '); Readln(Dokt); writeln;
for Dokt:=1 to Dokt do begin
write('Введите температуру за ',Dokt,' октября: ');
readln(o[Dokt]); summa:=Summa+o[Dokt]; end; writeln;
 
write('Введите количество дней в ноябре: '); Readln(Dnoi); writeln;
for Dnoi:=1 to Dnoi do begin
write('Введите температуру за ',Dnoi,' ноября: ');
readln(n[Dnoi]); summa:=Summa+n[Dnoi]; end; writeln;
 
{Здесь мы вычисляем среднее арифметическое}
 
Otvet:=summa/(Dsen+Dokt+Dnoi); {сумму делим на количество дней в сентябре, октябре и ноябре}
write('Средняя температура за ',Dsen+Dokt+Dnoi,' дней составляет ',Otvet,'градус(ов)');
readln;