PascalABC.NETЗадать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент. (Версия Паскаля 3.1)

const
  n=8;
var
  s,max,i:integer;
  a:array[1..n] of integer;

begin
  max:=-32768;
  Write('Введите 8 элементов массива: ');
  for i:=1 to n do begin
    Read(a[i]);
    s:=s+a[i];
    if a[i]>max then max:=a[i]
    end;
  Writeln('max=',max,', среднее=',s/n:0:5)
end.