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

Var i, sum:integer;

cp:real;

mass:array[1 ... 6] of integer;

begin

for i:=1 to 6 do

begin

write ('mass[', i,']=') ;

read (mass[i]) ;

sum:=sum+mass[i];

end;

writeln;

for i:=1 to 6 do

writeln ('mass[', i,']=', mass[i]) ;

writeln;

writeln ('Среднее арифметическое элементов массива равно ', sum/6:0:4) ;

end.