Заполнить массив шестью целыми числами введёнными с клавиатуры , вывести его на экран и посчитать сред. аримфетич. этих чисел

var i,sum:integer;cp:real;mass:array[1..6] of integer;beginfor i:=1 to 6 dobeginwrite('mass[',i,']=');read(mass[i]);sum:=sum+mass[i];end;writeln;for i:=1 to 6 dowriteln('mass[',i,']=',mass[i]);writeln;writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4);end.