На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка (решить на Turbo Pascal)

program zz1;

var a, b, r, k, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

begin

r:=r + i; / / вычисляем сумму чисел от а до b по формуле

k:=k+1; / / считаем количество чисел на отрезке

end;

write (' среднее арифметическое всех чисел, включая концы отрезка = ', r/k); / / выводим ответ

end.