Составить программу, использовать оператор цикла с заданным количеством повторов.. ввести 10 элементов. посчитать среднее арифметическое этих чисел.

Var i,n,sred,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(n);
sum:=sum+n;
end;
sred:=sum/10;
writeln(sred);
end.