Напишите программу в Паскале, которая определяет среднее арифметическое чисел в интервале от N до N1

var

x, y, i, s : integer; / / объявляем переменные

begin

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

readln (x, y); / / считываем значение переменных, введенных с клавиатуры

for i : = x to y do / / цикл от первого числа интервала до последнего

begin

s:=s+i; / / считаем сумму чисел в интервале

end;

writeln (s / (y - x + 1)); / / выводим на экран среднее арифметическое

end.