Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво - дятся с клавиатуры; a>=200);

program zz1;

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

begin

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

read (a);

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

read (b);

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

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

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

end.