Программа вводит 10целых чисел. Напишите программу,с помощью цикла for вычислить среднее значение чисел

var i,sum,b: Integer;beginfor i:=1 to 10 dobeginwriteln('Введите ',i,' число');readln(b);Inc(sum,b);end;writeln(sum/10);end.