составить программу нахождения среднего арифметического элементов массива состоящий из 5 элементов

 

program mas;

var...............

.........

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.