Найти среднее арифметическое всех целых чисел от a до 200 (значения

program zz1;

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

begin

write( введите первое число agt;=200);  // вводим с клавиатуры 1-ое число

read(a);  

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

read(b);

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

begin r:=r + i; k:=k + 1; end; // прибавляем число к сумме и считаем количество

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

end.