Для массива из 10 целых чисел. Найти сумму всех элементов, среднее арифметическое, наибольшее и наименьшее значение.

Program prog;uses crt;var a:array[1..10] of integer;    s,i,max, min: integer;    sr: real;beginclrscr;min:=a[1];for i:=1 to 10 do begin write('a[',i,'] = '); readln(a[i]); end; for i:=1 to 10 do begin s:=s+a[i]; if a[i]>max then max := a[i]; if a[i]<min then min := a[i]; end;sr:=s/10;writeln;writeln('Сумма всех элементов массива s = ', s);writeln('Среднее арифметическое sr = ', sr:0:1);writeln('Max = ', Max);writeln('Min = ', Min);  end.