Помогите написать программу на Паскале!
2-ое задание!

const n=6;var a:array[1..n]of integer=(4,2,23,3,100,8);i,s,max:integer;begins:=0;for i:=1 to n do s:=s+a[i];writeln('Среднее арифметическое = ',s/n:5:3);max:=a[1];for i:=2 to n do if a[i]>max then max:=a[i]; writeln('max = ',max); end.Результат:Среднее арифметическое = 23.333max = 100