Составить программу нахождения среднего арифметического элементов массива…

var mas: array[1… 5] of integer; i,sum: integer; sr: real; begin for i: =1 to 5 do begin readln (mas[i]); //заполняем массив sum: =sum+mas[i]; //находим сумму элементов массива end; sr: =sum/5; //находим среднее арифметическоеwriteln (sr); end.