Плюсы и минусы ссылок 20 быллов

Type mas=array[1..93] of real; var i,w: byte; season: mas; t: real; function temp(ses: mas; d: byte): real; var i: byte; s: real; begin s: =0; for i: =1 to d do  s: =s+ses[i]; temp: =s; end; begin repeat writeln('год високосный? 1-да 0-нет'); read(w); if (w< > 1) and (w< > 0) then w: =2; until w< > 2; writeln('введите зимние  температуры за каждый день: '); for i: =1 to 90+w do  readln(season[i]); t: =temp(season,90+w); writeln('среднее арифметическое зимних температур:   ',t/(90+w): 5: 3); writeln('введите весенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое весенних температур:   ',t/92: 5: 3); writeln('введите летние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое летних температур:   ',t/92: 5: 3); writeln('введите осенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,91); writeln('среднее арифметическое осенних температур: ',t/91: 5: 3); end.

Янапишу на паскале; program srednie_v_masive;     var a: array[1..3] of longint;         s,k,i,n: longint; begin    readln(n);     while not eof do      begin          for i: =1 to n do            begin                read(a[i]);                 s: =s+a[i];             end;           writeln(s/n);       end; end. n - ето количество чисел в масиве,а - ето масив значений,s - cума чисел, и выводим среднее в масиве значение ето сума поделеная на их количесво,тобеш n